Test clean-up for groups and users.
This commit is contained in:
parent
ca82394ab2
commit
b6f103cae6
1 changed files with 2 additions and 0 deletions
|
|
@ -156,11 +156,13 @@ sub setupTest {
|
|||
$groups[1] = WebGUI::Group->new($session, "new");
|
||||
$groups[1]->name('Regular Old Group');
|
||||
$groups[1]->autoAdd(0);
|
||||
WebGUI::Test->groupsToDelete(@{ $groups });
|
||||
|
||||
##Three users. One in each group and one with no group membership
|
||||
my @users = map { WebGUI::User->new($session, "new") } 0..2;
|
||||
$users[0]->addToGroups([$groups[0]->getId]);
|
||||
$users[1]->addToGroups([$groups[1]->getId]);
|
||||
WebGUI::Test->usersToDelete(@{ $users });
|
||||
|
||||
my $versionTag = WebGUI::VersionTag->getWorking($session);
|
||||
$versionTag->set({name=>"GroupAdd test"});
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue