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

Test clean-up for groups and users.

Browse source
This commit is contained in:
Colin Kuskie 2009-04-30 20:02:53 +00:00
parent ca82394ab2
commit b6f103cae6
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
t/Macro/GroupAdd.t
View file

@ -156,11 +156,13 @@ sub setupTest {
$groups[1] = WebGUI::Group->new($session, "new"); $groups[1] = WebGUI::Group->new($session, "new");
$groups[1]->name('Regular Old Group'); $groups[1]->name('Regular Old Group');
$groups[1]->autoAdd(0); $groups[1]->autoAdd(0);
WebGUI::Test->groupsToDelete(@{ $groups });
##Three users. One in each group and one with no group membership ##Three users. One in each group and one with no group membership
my @users = map { WebGUI::User->new($session, "new") } 0..2; my @users = map { WebGUI::User->new($session, "new") } 0..2;
$users[0]->addToGroups([$groups[0]->getId]); $users[0]->addToGroups([$groups[0]->getId]);
$users[1]->addToGroups([$groups[1]->getId]); $users[1]->addToGroups([$groups[1]->getId]);
WebGUI::Test->usersToDelete(@{ $users });
my $versionTag = WebGUI::VersionTag->getWorking($session); my $versionTag = WebGUI::VersionTag->getWorking($session);
$versionTag->set({name=>"GroupAdd test"}); $versionTag->set({name=>"GroupAdd test"});