From c10787e40e77345c404202574a658414199bee40 Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Tue, 3 Mar 2009 17:40:26 +0000
Subject: [PATCH] fix ProfileCategory test misusing the API

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

diff --git a/t/ProfileCategory.t b/t/ProfileCategory.t
index 70778778f..7e49c4a67 100644
--- a/t/ProfileCategory.t
+++ b/t/ProfileCategory.t
@@ -31,7 +31,9 @@ my $categories = WebGUI::ProfileCategory->getCategories($session);
 
 my @labels = map { $_->getLabel } @{ $categories };
 
-$categories->[0]->set({ visible => 0});
+my %properties = %{ $categories->[0]->get };
+$properties{visible} = 0;
+$categories->[0]->set(\%properties);
 
 my $newCategories = WebGUI::ProfileCategory->getCategories($session);
 my @newLabels     = map { $_->getLabel } @{ $newCategories };