oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add a test for setDelete.

Browse source
This commit is contained in:
Colin Kuskie 2009-02-23 09:09:11 -08:00
parent d1680cf867
commit 92502151f8
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
t/Inbox.t
View file

@ -17,7 +17,7 @@ use WebGUI::Session;
use WebGUI::Inbox; use WebGUI::Inbox;
use WebGUI::User; use WebGUI::User;
use Test::More tests => 8; # increment this value for each test you create use Test::More tests => 9; # increment this value for each test you create
my $session = WebGUI::Test->session; my $session = WebGUI::Test->session;
@ -59,7 +59,10 @@ ok($message->getId == $messageId, 'getMessage returns message object');
######################################################### #########################################################
my $messageList = $inbox->getMessagesForUser($user); my $messageList = $inbox->getMessagesForUser($user);
my $message_cnt = scalar(@{$messageList}); my $message_cnt = scalar(@{$messageList});
ok($message_cnt > 0, 'Messages returned for user'); is($message_cnt, 1, 'User only has 1 messages');
$message->setDeleted(3);
is(scalar(@{ $inbox->getMessagesForUser($user) }), 0, 'User has no undeleted messages');
END { END {
$session->db->write('delete from inbox where messageId = ?', [$message->getId]); $session->db->write('delete from inbox where messageId = ?', [$message->getId]);