oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Restore the original properties for the profile category that was modified for test.

Browse source
This commit is contained in:
Colin Kuskie 2009-03-03 17:46:05 +00:00
parent c10787e40e
commit c84e875612
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
t/ProfileCategory.t
View file

@ -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);
}