From 1d4f12781b32c46923d0d64a8f6392946fd2f182 Mon Sep 17 00:00:00 2001 From: Colin Kuskie Date: Thu, 30 Apr 2009 20:12:09 +0000 Subject: [PATCH] Test cleanup, and fix a leaky group. --- t/Macro/EditableToggle.t | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/t/Macro/EditableToggle.t b/t/Macro/EditableToggle.t index 9c66f0412..7fcb5fc0e 100644 --- a/t/Macro/EditableToggle.t +++ b/t/Macro/EditableToggle.t @@ -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'); - } }