clean up all groups in Group.t

This commit is contained in:
Colin Kuskie 2006-07-13 05:29:21 +00:00
parent 3dd45bad6d
commit e1b7082ac5

View file

@ -524,7 +524,7 @@ SKIP: {
}
END {
foreach my $testGroup ($gX, $gY, $gZ, $gA, $gB, $gC, $g, $gK, $gS, $gCache) {
foreach my $testGroup ($gX, $gY, $gZ, $gA, $gB, $gI, $gC, $g, $gK, $gS, $gCache) {
$testGroup->delete if (defined $testGroup and ref $testGroup eq 'WebGUI::Group');
}
foreach my $dude ($user, @crowd, @mob, @chameleons, @itchies, @tcps, $cacheDude) {