From c84e87561255c43d31547c8969325fcabdc473c4 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 3 Mar 2009 17:46:05 +0000
Subject: [PATCH] Restore the original properties for the profile category that
 was modified for test.

---
 t/ProfileCategory.t | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/t/ProfileCategory.t b/t/ProfileCategory.t
index 7e49c4a67..0c0a560e6 100644
--- a/t/ProfileCategory.t
+++ b/t/ProfileCategory.t
@@ -31,7 +31,8 @@ my $categories = WebGUI::ProfileCategory->getCategories($session);
 
 my @labels = map { $_->getLabel } @{ $categories };
 
-my %properties = %{ $categories->[0]->get };
+my %originalProperties = %{ $categories->[0]->get };
+my %properties = %originalProperties;
 $properties{visible} = 0;
 $categories->[0]->set(\%properties);
 
@@ -41,4 +42,5 @@ my @newLabels     = map { $_->getLabel } @{ $newCategories };
 cmp_bag(\@newLabels, \@labels, 'Setting a category to not be visible does not change its availability through getCategories, with no options');
 
 END {
+    $categories->[0]->set(\%originalProperties);
 }