From 27f474ec64a587ed9cc1d93bbd5694447b72a90e Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 21 Sep 2009 08:27:36 -0700
Subject: [PATCH] Do not cleanup Admin's friends group.

---
 t/Asset/File/GalleryFile/Photo/permissions.t | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/t/Asset/File/GalleryFile/Photo/permissions.t b/t/Asset/File/GalleryFile/Photo/permissions.t
index fc7c3bf22..70552ebc1 100644
--- a/t/Asset/File/GalleryFile/Photo/permissions.t
+++ b/t/Asset/File/GalleryFile/Photo/permissions.t
@@ -30,6 +30,7 @@ $session->user({ userId => 3 });
 my @versionTags = ();
 push @versionTags, WebGUI::VersionTag->getWorking($session);
 $versionTags[-1]->set({name=>"Photo Test, add Gallery, Album and 1 Photo"});
+WebGUI::Test->tagsToRollback(@versionTags);
 
 # Add a new user to the test user's friends list
 my $friend  = WebGUI::User->new($session, "new");
@@ -130,10 +131,3 @@ $photo->update({ friendsOnly => 0, });
 
 #----------------------------------------------------------------------------
 # Cleanup
-END {
-    for my $versionTag ( @versionTags ) {
-        $versionTag->rollback;
-    }
-    $session->user({userId => 3});
-    $session->user->friends->delete();
-}