From 45b84009dfaaa3370fa6bb580bc784729e73c334 Mon Sep 17 00:00:00 2001
From: Diona Kidd <dionak@webgui-svn>
Date: Thu, 13 Sep 2007 04:49:31 +0000
Subject: [PATCH] adding test for message body

---
 t/Inbox.t | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/t/Inbox.t b/t/Inbox.t
index 5360fdfef..e99894f67 100644
--- a/t/Inbox.t
+++ b/t/Inbox.t
@@ -16,7 +16,7 @@ use WebGUI::Session;
 
 use WebGUI::Inbox;
 
-use Test::More tests => 2; # increment this value for each test you create
+use Test::More tests => 3; # increment this value for each test you create
 
 my $session = WebGUI::Test->session;
 
@@ -24,8 +24,10 @@ my $session = WebGUI::Test->session;
 my $inbox = WebGUI::Inbox->new($session); 
 ok(defined ($inbox), 'new("new") -- object reference is defined');
 
+my $message_body = 'Test message';
+
 my $new_message = {
-    message => 'Test message',
+    message => $message_body,
     groupId => 3,
     userId => 1,
     
@@ -33,3 +35,4 @@ my $new_message = {
 
 my $message = $inbox->addMessage($new_message);
 ok(defined($message), 'addMessage returned a response');
+ok($message->{_properties}{message} eq $message_body, 'Message body set');