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

adding more debug statements to Storage/Image.t

Browse source
This commit is contained in:
Colin Kuskie 2007-12-04 21:31:30 +00:00
parent 72906e27fb
commit 75041656ee
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
t/Storage/Image.t
View file

@ -251,6 +251,7 @@ cmp_bag(
foreach my $testImage (@testImages) {
my $filename = $testImage->{ filename };
is($sizeTest->adjustMaxImageSize($filename), 0, "$filename does not need to be resized");
diag sprintf("%s -> oldw size = %d x %d", $filename, $sizeTest->getSizeInPixels($filename));
cmp_bag(
[ $sizeTest->getSizeInPixels($filename) ],
[ @{ $testImage }{qw/origHeight origWidth/} ],
@ -263,6 +264,7 @@ foreach my $testImage (@testImages) {
my $filename = $testImage->{ filename };
is($sizeTest->adjustMaxImageSize($filename), 1, "$filename needs to be resized");
my @newSize = $sizeTest->getSizeInPixels($filename);
diag sprintf("%s -> new size = %d x %d", $filename, @newSize);
cmp_bag(
[ $sizeTest->getSizeInPixels($filename) ],
[ @{ $testImage }{qw/newHeight newWidth/} ],