diff --git a/t/lib/WebGUI/Test.pm b/t/lib/WebGUI/Test.pm index 7707d43e6..b58933a05 100644 --- a/t/lib/WebGUI/Test.pm +++ b/t/lib/WebGUI/Test.pm @@ -142,6 +142,8 @@ BEGIN { END { my $Test = Test::Builder->new; GROUP: foreach my $group (@groupsToDelete) { + my $groupId = $group->getId; + next GROUP if any { $groupId eq $_ } qw/1 2 3 4 6 7 8 11 12 13 14 pbgroup000000000000015 pbgroup000000000000016 pbgroup000000000000017 /; $group->delete; } USER: foreach my $user (@usersToDelete) {