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

Fix storageId cleanup, had a syntax error in perl 5.10.1

Browse source
This commit is contained in:
Colin Kuskie 2010-06-10 19:51:55 -07:00
parent fc3bda3d3b
commit 4dc9cbae3e
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
t/Asset/Story.t
View file

@ -412,7 +412,10 @@ cmp_deeply(
isnt($newPhotoData->[0]->{storageId}, $photoData->[0]->{storageId}, '... and storage 0 is duplicated');
isnt($newPhotoData->[1]->{storageId}, $photoData->[1]->{storageId}, '... and storage 1 is duplicated');
WebGUI::Test->addToCleanup( map { 'WebGUI::Storage' => $_->{storageId} } @{ $newPhotoData } );
{
my %hash = map { ('WebGUI::Storage' => $_->{storageId}) } @{ $newPhotoData };
WebGUI::Test->addToCleanup(%hash);
}
############################################################
#