From ffd2661c7fad360b4ce37c8f66f834a2e3a766f3 Mon Sep 17 00:00:00 2001 From: Diona Kidd Date: Thu, 13 Sep 2007 04:37:55 +0000 Subject: [PATCH] Building up tests for Inbox.pm --- t/Inbox.t | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/t/Inbox.t b/t/Inbox.t index 669e749f4..5360fdfef 100644 --- a/t/Inbox.t +++ b/t/Inbox.t @@ -16,7 +16,7 @@ use WebGUI::Session; use WebGUI::Inbox; -use Test::More tests => 1; # increment this value for each test you create +use Test::More tests => 2; # increment this value for each test you create my $session = WebGUI::Test->session; @@ -24,3 +24,12 @@ my $session = WebGUI::Test->session; my $inbox = WebGUI::Inbox->new($session); ok(defined ($inbox), 'new("new") -- object reference is defined'); +my $new_message = { + message => 'Test message', + groupId => 3, + userId => 1, + +}; + +my $message = $inbox->addMessage($new_message); +ok(defined($message), 'addMessage returned a response');