From 88c75626f4194cc47a83bc849400374304471442 Mon Sep 17 00:00:00 2001
From: Diona Kidd <dionak@webgui-svn>
Date: Thu, 13 Sep 2007 23:38:06 +0000
Subject: [PATCH] Added more tests for the inbox object

---
 t/Inbox.t | 40 ++++++++++++++++++++++++++++------------
 1 file changed, 28 insertions(+), 12 deletions(-)

diff --git a/t/Inbox.t b/t/Inbox.t
index 8e48867db..87c2a5f6d 100644
--- a/t/Inbox.t
+++ b/t/Inbox.t
@@ -15,36 +15,52 @@ use WebGUI::Test;
 use WebGUI::Session;
 
 use WebGUI::Inbox;
+use WebGUI::User;
 
-use Test::More tests => 3; # increment this value for each test you create
+use Test::More tests => 8; # increment this value for each test you create
 
 my $session = WebGUI::Test->session;
 
-# Do our work in the import node
-#my $node = WebGUI::Asset->getImportNode($session);
+# get a user so we can test retrieving messages for a specific user
+my $user = WebGUI::User->new($session, 3);
 
-#my $versionTag = WebGUI::VersionTag->getWorking($session);
-#$versionTag->set({name=>"Inbox Test"});
-#my $inbox = $node->addChild({className=>'WebGUI::Inbox'});
-
-# Begin tests...
+# Begin tests by getting an inbox object
 my $inbox = WebGUI::Inbox->new($session); 
+isa_ok($inbox, 'WebGUI::Inbox');
 ok(defined ($inbox), 'new("new") -- object reference is defined');
 
+########################
+# create a new message #
+########################
 my $message_body = 'Test message';
-
 my $new_message = {
     message => $message_body,
     groupId => 3,
     userId => 1,
-    
 };
 
 my $message = $inbox->addMessage($new_message);
+isa_ok($message, 'WebGUI::Inbox::Message');
+
 ok(defined($message), 'addMessage returned a response');
 ok($message->{_properties}{message} eq $message_body, 'Message body set');
 
+my $messageId = $message->getId;
+ok($messageId, 'messageId retrieved');
+
+####################################
+# get a message based on messageId #
+####################################
+$message = $inbox->getMessage($messageId);
+ok($message->getId == $messageId, 'getMessage returns message object');
+
+#########################################################
+# get a list (arrayref) of messages for a specific user #
+#########################################################
+my $messageList = $inbox->getMessagesForUser($user);
+my $message_cnt = scalar(@{$messageList});
+ok($message_cnt > 0, 'Messages returned for user');
+
 END {
-    # Clean up after thy self
-    #$versionTag->rollback();
+    $session->db->write('delete from inbox where messageId = ?', [$message->getId]);
 }