From 19b333067ea9db7cd18e21a69d6b03a69b862cb2 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 7 May 2009 16:04:47 +0000
Subject: [PATCH] Prevent default groups from being deleted.

---
 t/lib/WebGUI/Test.pm | 2 ++
 1 file changed, 2 insertions(+)

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) {