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

Another batch of test cleaning.

Browse source
This commit is contained in:
Colin Kuskie 2010-06-14 19:47:30 -07:00
parent e878258543
commit 71d4880635
7 changed files with 16 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

8
t/Inbox.t
View file

@ -23,6 +23,7 @@ my $session = WebGUI::Test->session;
# get a user so we can test retrieving messages for a specific user
my $admin = WebGUI::User->new($session, 3);
WebGUI::Test->addToCleanup(sub { WebGUI::Test->cleanupAdminInbox; });
# Begin tests by getting an inbox object
my $inbox = WebGUI::Inbox->new($session);
@ -133,9 +134,4 @@ note $messages->[0]->getStatus;
note $messages->[0]->isRead;
is($inbox->getUnreadMessageCount($admin->userId), 3, '... really tracks unread messages');
END {
foreach my $message (@{ $inbox->getMessagesForUser($admin, 1000) } ) {
$message->setDeleted(3);
$message->delete(3);
}
}
#vim:ft=perl