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

Test cleanup, and fix a leaky group.

Browse source
This commit is contained in:
Colin Kuskie 2009-04-30 20:12:09 +00:00
parent 25231d3fe5
commit 1d4f12781b
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
t/Macro/EditableToggle.t
View file

@ -255,6 +255,7 @@ sub setupTest {
my ($session, $defaultNode) = @_;
$session->user({userId=>3});
my $editGroup = WebGUI::Group->new($session, "new");
WebGUI::Test->groupsToDelete($editGroup);
my $tao = WebGUI::Group->find($session, "Turn Admin On");
##Create an asset with specific editing privileges
my $versionTag = WebGUI::VersionTag->getWorking($session);
@ -276,6 +277,7 @@ sub setupTest {
$users[1]->addToGroups([$editGroup->getId]);
##User 2 is an editor AND can turn on Admin
$users[2]->addToGroups([$editGroup->getId, $tao->getId]);
WebGUI::Test->usersToDelete(@users);
return ($versionTag, $asset, @users);
}
@ -283,7 +285,4 @@ END { ##Clean-up after yourself, always
if (defined $versionTag and ref $versionTag eq 'WebGUI::VersionTag') {
$versionTag->rollback;
}
foreach my $dude (@users) {
$dude->delete if (defined $dude and ref $dude eq 'WebGUI::User');
}
}