From b6f103cae642fbcc9c87a2d798c910965fc090f3 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 30 Apr 2009 20:02:53 +0000
Subject: [PATCH] Test clean-up for groups and users.

---
 t/Macro/GroupAdd.t | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/t/Macro/GroupAdd.t b/t/Macro/GroupAdd.t
index e83ca4728..bc64c7931 100644
--- a/t/Macro/GroupAdd.t
+++ b/t/Macro/GroupAdd.t
@@ -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"});