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

final coverage tests to bring User.pm up to 100%

Browse source
This commit is contained in:
Colin Kuskie 2007-10-31 21:15:49 +00:00
parent 17441c13c2
commit 397783f15d
1 changed files with 22 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

40
t/User.t
View file

@ -20,7 +20,7 @@ use WebGUI::Cache;
use WebGUI::User; use WebGUI::User;
use WebGUI::ProfileField; use WebGUI::ProfileField;
use Test::More tests => 127; # increment this value for each test you create use Test::More tests => 129; # increment this value for each test you create
use Test::Deep; use Test::Deep;
my $session = WebGUI::Test->session; my $session = WebGUI::Test->session;
@ -457,29 +457,13 @@ $dude->deleteFromGroups([12]);
$dudeGroups = $dude->getGroups(1); $dudeGroups = $dude->getGroups(1);
cmp_bag($dudeGroups, ['2', '7'], 'Dude belongs to Registered Users, Everyone as unexpired group memberships'); cmp_bag($dudeGroups, ['2', '7'], 'Dude belongs to Registered Users, Everyone as unexpired group memberships');
################################################################
#
# acceptsPrivateMessages
#
################################################################
my $friend = WebGUI::User->new($session, 'new');
$friend->profileField('allowPrivateMessages', 'all');
is ($friend->acceptsPrivateMessages(1), 1, 'when allowPrivateMessages=all, anyone can send messages');
$friend->profileField('allowPrivateMessages', 'none');
is ($friend->acceptsPrivateMessages($friend->userId), 0, 'when allowPrivateMessages=all, no one can send messages');
TODO: {
local $TODO = "Tests that need to be written";
ok(0, 'Test allowPrivateMessages=friends, with various userIds');
}
################################################################ ################################################################
# #
# getFirstName # getFirstName
# #
################################################################ ################################################################
my $friend = WebGUI::User->new($session, 'new');
is($friend->getFirstName, undef, 'with no profile settings, getFirstName returns undef'); is($friend->getFirstName, undef, 'with no profile settings, getFirstName returns undef');
$friend->username('friend'); $friend->username('friend');
@ -552,6 +536,26 @@ undef $friendsGroup2;
undef $friendsGroup3; undef $friendsGroup3;
undef $neighborClone; undef $neighborClone;
################################################################
#
# acceptsPrivateMessages
#
################################################################
$friend->profileField('allowPrivateMessages', 'all');
is ($friend->acceptsPrivateMessages(1), 1, 'acceptsPrivateMessages: when allowPrivateMessages=all, anyone can send messages');
$friend->profileField('allowPrivateMessages', 'none');
is ($friend->acceptsPrivateMessages($friend->userId), 0, 'acceptsPrivateMessages: when allowPrivateMessages=none, no one can send messages');
$neighbor->profileField('allowPrivateMessages', 'friends');
is ($neighbor->acceptsPrivateMessages($friend->userId), 0, 'acceptsPrivateMessages: when allowPrivateMessages=friends, only friends can send me messages');
$friend->addToGroups([$neighbor->friends->getId]);
is ($neighbor->acceptsPrivateMessages($friend->userId), 1, 'acceptsPrivateMessages: add $friend to $neighbor friendsGroup, now he can send me messages');
$friend->deleteFromGroups([$neighbor->friends->getId]);
$neighbor->profileField('allowPrivateMessages', 'not a valid choice');
is ($neighbor->acceptsPrivateMessages($friend->userId), 1, 'acceptsPrivateMessages: illegal profile field allows messages to be received from anyone');
END { END {
foreach my $account ($user, $dude, $buster, $buster3, $neighbor, $friend) { foreach my $account ($user, $dude, $buster, $buster3, $neighbor, $friend) {
(defined $account and ref $account eq 'WebGUI::User') and $account->delete; (defined $account and ref $account eq 'WebGUI::User') and $account->delete;