252 lines
10 KiB
Perl
252 lines
10 KiB
Perl
#-------------------------------------------------------------------
|
|
# WebGUI is Copyright 2001-2006 Plain Black Corporation.
|
|
#-------------------------------------------------------------------
|
|
# Please read the legal notices (docs/legal.txt) and the license
|
|
# (docs/license.txt) that came with this distribution before using
|
|
# this software.
|
|
#-------------------------------------------------------------------
|
|
# http://www.plainblack.com info@plainblack.com
|
|
#-------------------------------------------------------------------
|
|
|
|
use FindBin;
|
|
use strict;
|
|
use lib "$FindBin::Bin/lib";
|
|
|
|
use WebGUI::Test;
|
|
use WebGUI::Session;
|
|
use WebGUI::Utility;
|
|
|
|
use WebGUI::User;
|
|
use WebGUI::Group;
|
|
use Test::More tests => 75; # increment this value for each test you create
|
|
use Test::Deep;
|
|
|
|
my $session = WebGUI::Test->session;
|
|
|
|
my $g = WebGUI::Group->new($session, "new");
|
|
|
|
diag("Object creation and defaults");
|
|
is (ref $g, "WebGUI::Group", "Group object creation");
|
|
my $gid = $g->getId;
|
|
isnt ($gid, "new", "Group assigned new groupId, not new");
|
|
is (length($gid), 22, "GroupId is proper length");
|
|
is ($g->name(), 'New Group', 'Default name');
|
|
is ($g->expireOffset(), 314496000, 'Default karma threshold');
|
|
is ($g->karmaThreshold(), 1_000_000_000, 'Default karma threshold');
|
|
is ($g->expireNotifyOffset(), -14, 'Default expire notify offset time');
|
|
is ($g->deleteOffset(), 14, 'Default delete offset time');
|
|
is ($g->expireNotify(), 0, 'Default expire notify time');
|
|
is ($g->databaseLinkId(), 0, 'Default databaseLinkId');
|
|
is ($g->dbCacheTimeout(), 3600, 'Default external database cache timeout');
|
|
is ($g->dateCreated(), $g->lastUpdated(), 'lastUpdated = create time');
|
|
is_deeply ($g->getGroupsIn(), [3], 'Admin group added by default to this group');
|
|
is_deeply ($g->getGroupsFor(), [], 'Group not added to any other group');
|
|
is_deeply ($g->getUsers(), [], 'No users added by default');
|
|
is ($g->autoAdd(), 0, 'auto Add is off by default');
|
|
is ($g->autoDelete(), 0, 'auto Delete is off by default');
|
|
is ($g->isEditable(), 1, 'isEditable is on by default');
|
|
is ($g->showInForms(), 1, 'show in forms is on by default');
|
|
|
|
my $gname = '**TestGroup**';
|
|
is ($g->name($gname), $gname, 'Set name');
|
|
is ($g->name(), $gname, 'Get name via accessor');
|
|
is ($g->get('groupName'), $gname, 'Get name via generic accessor');
|
|
|
|
my $g2 = WebGUI::Group->find($session, $gname);
|
|
my $skipFindGroup = is(ref $g2, 'WebGUI::Group', 'find returns a group');
|
|
|
|
SKIP: {
|
|
skip('find did not return a WebGUI::Group object', !$skipFindGroup);
|
|
is( $g->getId, $g2->getId, 'find returns correct group');
|
|
}
|
|
undef $g2;
|
|
|
|
delete $g->{_group};
|
|
ok( !exists $g->{_group}, 'deleted group property hash');
|
|
is( $g->name, $gname, 'group name restored after ->get through ->name');
|
|
ok( exists $g->{_group}, 'group property hash restored');
|
|
|
|
$g->delete();
|
|
|
|
my $matchingGroups = $session->db->quickArray("select groupId from groups where groupId=?",[$gid]);
|
|
|
|
is ( $matchingGroups, 0, 'group was removed');
|
|
|
|
my $gA = WebGUI::Group->new($session, "new");
|
|
my $gB = WebGUI::Group->new($session, "new");
|
|
$gA->name('Group A');
|
|
$gB->name('Group B');
|
|
ok( ($gA->name eq 'Group A' and $gB->name eq 'Group B'), 'object name assignment, multiple objects');
|
|
|
|
$gB->addGroups([$gA->getId]);
|
|
|
|
cmp_bag($gB->getGroupsIn(1), [$gA->getId, 3], 'Group A is in Group B, recursively');
|
|
cmp_bag($gB->getGroupsIn(), [$gA->getId, 3], 'Group A is in Group B');
|
|
cmp_bag($gA->getGroupsFor(), [$gB->getId], 'Group B contains Group A');
|
|
cmp_bag($gA->getGroupsIn(), [3], 'Admin added to group A automatically');
|
|
|
|
$gA->addGroups([$gB->getId]);
|
|
cmp_bag($gA->getGroupsIn(), [3], 'Not allowed to create recursive group loops');
|
|
|
|
$gA->addGroups([1]);
|
|
cmp_bag($gA->getGroupsIn(), [3], 'Not allowed to add group Visitor to a group');
|
|
|
|
$gA->addGroups([$gA->getId]);
|
|
cmp_bag($gA->getGroupsIn(), [3], 'Not allowed to add myself to my group');
|
|
|
|
my $gC = WebGUI::Group->new($session, "new");
|
|
$gC->name('Group C');
|
|
$gA->addGroups([$gC->getId]);
|
|
|
|
cmp_bag($gC->getGroupsFor(), [$gA->getId], 'Group A contains Group C');
|
|
cmp_bag($gA->getGroupsIn(), [$gC->getId, 3], 'Group C is a member of Group A, cached');
|
|
cmp_bag($gB->getGroupsIn(1), [$gC->getId, $gA->getId, 3], 'Group C is in Group B, recursively');
|
|
cmp_bag($gB->getGroupsIn(), [$gA->getId, 3], 'Group A is in Group B');
|
|
|
|
$gC->addGroups([$gB->getId]);
|
|
cmp_bag($gC->getGroupsIn(), [3], 'Adding Group B to Group C fails, recursively');
|
|
|
|
$gA->deleteGroups([$gC->getId]);
|
|
cmp_bag($gA->getGroupsIn(), [3], 'Group C is not a member of Group A');
|
|
cmp_bag($gB->getGroupsIn(1), [$gA->getId, 3], 'Group C is not in Group B, recursively');
|
|
cmp_bag($gC->getGroupsFor(), [], 'No groups contain Group C');
|
|
|
|
# B Z
|
|
# / \ / \
|
|
# A C Y X
|
|
|
|
$gB->addGroups([$gC->getId]);
|
|
|
|
my $gX = WebGUI::Group->new($session, "new");
|
|
my $gY = WebGUI::Group->new($session, "new");
|
|
my $gZ = WebGUI::Group->new($session, "new");
|
|
$gX->name('Group X');
|
|
$gY->name('Group Y');
|
|
$gZ->name('Group Z');
|
|
|
|
$gZ->addGroups([$gX->getId, $gY->getId]);
|
|
|
|
# B
|
|
# / \
|
|
# A C
|
|
# |
|
|
# Z
|
|
# / \
|
|
# X Y
|
|
|
|
$gA->addGroups([$gZ->getId]);
|
|
cmp_bag($gB->getGroupsIn(1), [$gA->getId, $gC->getId, $gZ->getId, $gY->getId, $gX->getId, 3], 'Add Z tree to A under B');
|
|
|
|
$gX->addGroups([$gA->getId]);
|
|
cmp_bag($gX->getGroupsIn(), [3], 'Not able to add B tree under Z tree under X');
|
|
|
|
my $user = WebGUI::User->new($session, "new");
|
|
$gX->userIsAdmin($user->userId, "yes");
|
|
ok(!$gX->userIsAdmin($user->userId), "userIsAdmin: User who isn't secondary admin can't be group admin");
|
|
isnt($gX->userIsAdmin($user->userId), 'yes', "userIsAdmin returns 1 or 0, not value");
|
|
|
|
$gX->userIsAdmin($user->userId, 1);
|
|
ok(!$gX->userIsAdmin($user->userId), "userIsAdmin: User must be member of group to be group admin");
|
|
|
|
my $expireOffset = $gX->expireOffset;
|
|
|
|
$user->addToGroups([$gX->getId]);
|
|
##User expire time is calculated correctly
|
|
my $expireTime = abs($gX->userGroupExpireDate($user->userId) - $expireOffset - time());
|
|
ok( $expireTime < 1, 'userGroupExpireDate: Default expire time');
|
|
ok($user->isInGroup($gX->getId), "addToGroups: Added dude to gX");
|
|
|
|
$gX->userIsAdmin($user->userId, 1);
|
|
ok($gX->userIsAdmin($user->userId), "userIsAdmin: Dude set to be group admin for gX");
|
|
|
|
sleep 5;
|
|
$expireTime = time() + $expireOffset - $gX->userGroupExpireDate($user->userId) ;
|
|
ok( ($expireTime < 7 && $expireTime > 0), 'userGroupExpireDate: Default expire time ages');
|
|
|
|
$gX->addUsers([$user->userId]);
|
|
my $expireTime = abs($gX->userGroupExpireDate($user->userId) - $expireOffset - time());
|
|
ok( $expireTime < 1, 'adding exising user to group resets expire date');
|
|
ok($gX->userIsAdmin($user->userId), "userIsAdmin: adding existing user to group does not change group admin status");
|
|
|
|
##undef and the empty string will return the set value because they're
|
|
##interpreted as the empty string.
|
|
is($gX->userIsAdmin($user->userId, ''), 1, "userIsAdmin: empty string returns status");
|
|
is($gX->userIsAdmin($user->userId, undef), 1, "userIsAdmin: undef returns status");
|
|
|
|
##Now we'll try various settings and see how they work with userIsAdmin.
|
|
$gX->userIsAdmin($user->userId, 0);
|
|
ok(!$gX->userIsAdmin($user->userId), "userIsAdmin: trying 0 as value");
|
|
$gX->userIsAdmin($user->userId, '0E0');
|
|
ok(!$gX->userIsAdmin($user->userId), "userIsAdmin: trying '0E0'(string) as value");
|
|
$gX->userIsAdmin($user->userId, 0E0);
|
|
ok(!$gX->userIsAdmin($user->userId), "userIsAdmin: trying 0E0 as value");
|
|
|
|
$user->delete;
|
|
|
|
##Build a group of users and add them to various groups to test fetching users
|
|
|
|
my @crowd = map { WebGUI::User->new($session, "new") } 0..7;
|
|
my @mob = map { WebGUI::User->new($session, "new") } 0..2;
|
|
|
|
my @bUsers = map { $_->userId } @crowd[0,1];
|
|
my @aUsers = map { $_->userId } @crowd[2,3];
|
|
my @cUsers = map { $_->userId } @crowd[4,5];
|
|
my @zUsers = map { $_->userId } @crowd[6,7];
|
|
|
|
$gB->addUsers([ @bUsers ]);
|
|
$gA->addUsers([ @aUsers ]);
|
|
$gC->addUsers([ @cUsers ]);
|
|
$gZ->addUsers([ @zUsers ]);
|
|
|
|
cmp_bag($gB->getUsers, [@bUsers], 'users in group B');
|
|
cmp_bag($gA->getUsers, [@aUsers], 'users in group A');
|
|
cmp_bag($gC->getUsers, [@cUsers], 'users in group C');
|
|
cmp_bag($gZ->getUsers, [@zUsers], 'users in group Z');
|
|
|
|
cmp_bag($gB->getUsers(1), [@bUsers, @aUsers, @cUsers, @zUsers, 3], 'users in group B, recursively');
|
|
cmp_bag($gA->getUsers(1), [@aUsers, @zUsers, 3], 'users in group A, recursively');
|
|
cmp_bag($gC->getUsers(1), [@cUsers, 3], 'users in group C, recursively');
|
|
cmp_bag($gZ->getUsers(1), [@zUsers, 3], 'users in group Z, recursively');
|
|
|
|
$session->db->dbh->do('DROP TABLE IF EXISTS myUserTable');
|
|
$session->db->dbh->do(q!CREATE TABLE myUserTable (userId varchar(22) binary NOT NULL default '', PRIMARY KEY(userId)) TYPE=InnoDB!);
|
|
|
|
my $sth = $session->db->prepare('INSERT INTO myUserTable VALUES(?)');
|
|
foreach my $mob (@mob) {
|
|
$sth->execute([ $mob->userId ]);
|
|
}
|
|
|
|
ok( !$mob[0]->isInGroup($gY->getId), 'mob[0] is not in group Z');
|
|
|
|
my $mobUsers = $session->db->buildArrayRef('select userId from myUserTable');
|
|
|
|
cmp_bag($mobUsers, [map {$_->userId} @mob], 'verify SQL table built correctly');
|
|
|
|
is( $gY->databaseLinkId, 0, "Group Y's databaseLinkId is set to WebGUI");
|
|
$gY->dbQuery(q!select 1 from myUserTable where userId='^#();'!);
|
|
is( $session->stow->get('isInGroup'), undef, 'setting dbQuery clears cached isInGroup');
|
|
|
|
$session->user({userId => $mob[0]->userId});
|
|
is( $session->user->userId, $mob[0]->userId, 'mob[0] set to be current user');
|
|
$session->errorHandler->warn('checking mob[0] group membership');
|
|
is( $mob[0]->isInGroup($gY->getId), 1, 'mob[0] is in group Y after setting dbQuery');
|
|
$session->user({userId => $mob[1]->userId});
|
|
is( $mob[0]->isInGroup($gZ->getId), 1, 'mob[0] is not in group Z');
|
|
|
|
ok( !isIn($mob[0]->userId, $gZ->getUsers(1)), 'mob[0] not in list of group Z users');
|
|
|
|
END {
|
|
(defined $gX and ref $gX eq 'WebGUI::Group') and $gX->delete;
|
|
(defined $gY and ref $gY eq 'WebGUI::Group') and $gY->delete;
|
|
(defined $gZ and ref $gZ eq 'WebGUI::Group') and $gZ->delete;
|
|
(defined $gA and ref $gA eq 'WebGUI::Group') and $gA->delete;
|
|
(defined $gB and ref $gB eq 'WebGUI::Group') and $gB->delete;
|
|
(defined $gC and ref $gC eq 'WebGUI::Group') and $gC->delete;
|
|
(defined $g2 and ref $g2 eq 'WebGUI::Group') and $g2->delete;
|
|
(defined $g and ref $g eq 'WebGUI::Group') and $g->delete;
|
|
(defined $user and ref $g eq 'WebGUI::User') and $g->delete;
|
|
foreach my $dude (@crowd, @mob) {
|
|
$dude->delete if (defined $dude and ref $dude eq 'WebGUI::User');
|
|
}
|
|
$session->db->dbh->do('DROP TABLE IF EXISTS myUserTable');
|
|
}
|