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

Annotate recursive versus non-recursive test

Browse source 
Clean-up the crowd and the mab
This commit is contained in:
Colin Kuskie 2006-04-03 18:17:38 +00:00
parent c802e4ddad
commit 2f65790a74
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
t/Group.t
View file

@ -235,7 +235,7 @@ $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');
is( $mob[0]->isInGroup($gZ->getId,1), 1, 'mob[0] is in group Z');
is( $mob[0]->isInGroup($gZ->getId,1), 1, 'mob[0] is in group Z, recursively');
END {
(defined $gX and ref $gX eq 'WebGUI::Group') and $gX->delete;
@ -247,7 +247,7 @@ END {
(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) {
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');