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

API change to allow filtering messages by userId.

Browse source 
Changes to getMessagesForUser, getMessagePaginator.  With tests.
This commit is contained in:
Colin Kuskie 2009-02-23 12:27:11 -08:00
parent a6c9d3c3d1
commit b2523d8b24
2 changed files with 82 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

64
t/Inbox.t
View file

@ -17,12 +17,12 @@ use WebGUI::Session;
use WebGUI::Inbox;
use WebGUI::User;
use Test::More tests => 9; # increment this value for each test you create
use Test::More tests => 13; # increment this value for each test you create
my $session = WebGUI::Test->session;
# get a user so we can test retrieving messages for a specific user
my $user = WebGUI::User->new($session, 3);
my $admin = WebGUI::User->new($session, 3);
# Begin tests by getting an inbox object
my $inbox = WebGUI::Inbox->new($session);
@ -57,13 +57,69 @@ ok($message->getId == $messageId, 'getMessage returns message object');
#########################################################
# get a list (arrayref) of messages for a specific user #
#########################################################
my $messageList = $inbox->getMessagesForUser($user);
my $messageList = $inbox->getMessagesForUser($admin);
my $message_cnt = scalar(@{$messageList});
is($message_cnt, 1, 'User only has 1 messages');
$message->setDeleted(3);
is(scalar(@{ $inbox->getMessagesForUser($user) }), 0, 'User has no undeleted messages');
is(scalar(@{ $inbox->getMessagesForUser($admin) }), 0, 'User has no undeleted messages');
$message->delete(3);
#########################################################
#
# Check user filtering
#
#########################################################
my @senders = ();
push @senders, WebGUI::User->create($session);
push @senders, WebGUI::User->create($session);
push @senders, WebGUI::User->create($session);
$senders[0]->username('first');
$senders[0]->profileField('firstName', 'First Only');
$senders[1]->username('last');
$senders[1]->profileField('lastName', 'Last Only');
$senders[2]->username('wholename');
$senders[2]->profileField('firstName', 'Tom');
$senders[2]->profileField('lastName', 'Jones');
$inbox->addMessage({
message => "First message",
userId => 3,
sentBy => $senders[0]->userId,
});
$inbox->addMessage({
message => "Second message",
userId => 3,
sentBy => $senders[1]->userId,
});
$inbox->addMessage({
message => "Third message",
userId => 3,
sentBy => $senders[2]->userId,
});
$inbox->addMessage({
message => "Fourth message",
userId => 3,
sentBy => $senders[2]->userId,
});
is(scalar @{ $inbox->getMessagesForUser($admin) }, 4, 'Added 3 messages by various users');
is(scalar @{ $inbox->getMessagesForUser($admin, '', '', '', 'sentBy='.$session->db->quote($senders[0]->userId)) }, 1, '1 message by sender[0]');
is(scalar @{ $inbox->getMessagesForUser($admin, '', '', '', 'sentBy='.$session->db->quote($senders[1]->userId)) }, 1, '1 message by sender[1]');
is(scalar @{ $inbox->getMessagesForUser($admin, '', '', '', 'sentBy='.$session->db->quote($senders[2]->userId)) }, 2, '2 messages by sender[2]');
END {
$session->db->write('delete from inbox where messageId = ?', [$message->getId]);
foreach my $user (@senders) {
$user->delete;
}
foreach my $message (@{ $inbox->getMessagesForUser($admin, 1000) } ) {
$message->setDeleted(3);
$message->delete(3);
}
}