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

fix exif test

Browse source
This commit is contained in:
Graham Knop 2009-02-10 21:41:48 +00:00
parent bf9bd2f0d2
commit a8dab0ac03
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
t/Asset/File/GalleryFile/Photo/exif.t
View file

@ -46,7 +46,10 @@ my $photo
{ skipAutoCommitWorkflows => 1 },
);
$versionTag->commit;
my $exif = ImageInfo( WebGUI::Test->getTestCollateralPath("lamp.jpg") );
$photo->setFile( WebGUI::Test->getTestCollateralPath("lamp.jpg") );
my $exif = ImageInfo( $photo->getStorageLocation->getPath($photo->get('filename')) );
# Sanitize Exif data by removing keys with references as values
for my $key ( keys %$exif ) {
if ( ref $exif->{$key} ) {
@ -58,7 +61,6 @@ for my $key ( qw{ Directory } ) {
delete $exif->{ $key };
}
$photo->setFile( WebGUI::Test->getTestCollateralPath("lamp.jpg") );
#----------------------------------------------------------------------------
# Cleanup