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

fix #11965: FriendMgr pagination and getUsersNotIn

Browse source
This commit is contained in:
Doug Bell 2010-11-16 13:26:38 -06:00
parent ee80f8d011
commit 5f89a281e9
4 changed files with 49 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

35
t/Group.t
View file

@ -93,7 +93,7 @@ my @ldapTests = (
);
plan tests => (168 + (scalar(@scratchTests) * 2) + scalar(@ipTests)); # increment this value for each test you create
plan tests => (172 + (scalar(@scratchTests) * 2) + scalar(@ipTests)); # increment this value for each test you create
my $session = WebGUI::Test->session;
my $testCache = WebGUI::Cache->new($session, 'myTestKey');
@ -832,4 +832,37 @@ ok( WebGUI::Group->vitalGroup(3), '... 3');
ok( WebGUI::Group->vitalGroup('pbgroup000000000000015'), '... pbgroup000000000000015');
ok(! WebGUI::Group->vitalGroup('27'), '... 27 is not vital');
#----------------------------------------------------------------------------
# getUsersNotIn
# Normal group
my $happyDude = WebGUI::User->create( $session );
$happyDude->username(" Happy Dude ");
addToCleanup( $happyDude );
$gA->addUsers([ $happyDude->getId ]);
$gB->addUsers([ $happyDude->getId ]);
cmp_deeply(
$gA->getUsersNotIn( $gZ->getId ),
superbagof( $happyDude->getId ),
"get the users not in the group",
);
ok(
!grep( { $_ eq $happyDude->getId } @{$gA->getUsersNotIn( $gB->getId )}),
"don't get the users in both groups",
);
# Special-case Registered Users
my $regUser = WebGUI::Group->new( $session, "2" );
cmp_deeply(
$regUser->getUsersNotIn( $gZ->getId ),
superbagof( $happyDude->getId ),
"registered users: get the users not in the group",
);
ok(
!grep( { $_ eq $happyDude->getId } @{$regUser->getUsersNotIn( $gA->getId )}),
"registered users: don't get the users in both groups",
);
#vim:ft=perl