From abb6ff29d569f59b551ced814feb8c512010e878 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 20 May 2009 03:05:45 +0000
Subject: [PATCH] Make sure that we don't delete things that have already been
 deleted.

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

diff --git a/t/lib/WebGUI/Test.pm b/t/lib/WebGUI/Test.pm
index 92cd8a5fa..4209f0d9d 100644
--- a/t/lib/WebGUI/Test.pm
+++ b/t/lib/WebGUI/Test.pm
@@ -146,13 +146,13 @@ END {
         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 /;
         my $newGroup = WebGUI::Group->new($SESSION, $groupId);
-        $newGroup->delete;
+        $newGroup->delete if $newGroup;
     }
     USER: foreach my $user (@usersToDelete) {
         my $userId = $user->userId;
         next USER if any { $userId eq $_ } (1,3);
         my $newUser = WebGUI::User->new($SESSION, $userId);
-        $newUser->delete;
+        $newUser->delete if $newUser;
     }
     foreach my $stor (@storagesToDelete) {
         if ($SESSION->id->valid($stor)) {