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

work around for image magick bug

Browse source
This commit is contained in:
JT Smith 2009-06-02 22:56:07 +00:00
parent e4420e31cc
commit 5509cf4d1c
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
t/Macro/Thumbnail.t
View file

@ -88,7 +88,7 @@ SKIP: {
##Load the image into some parser and check a few pixels to see if they're blue-ish. ##Load the image into some parser and check a few pixels to see if they're blue-ish.
##->Get('pixel[x,y]') hopefully returns color in hex triplets ##->Get('pixel[x,y]') hopefully returns color in hex triplets
my $thumbImg = Image::Magick->new(); my $thumbImg = Image::Magick->new();
$thumbImg->Read(filename => $thumbFile); $thumbImg->ReadImage($thumbFile);
cmp_bag([$thumbImg->GetPixels(width=>1, height=>1, x=>25, y=>25, map=>'RGB', normalize=>'true')], [0,0,1], 'blue pixel #1'); cmp_bag([$thumbImg->GetPixels(width=>1, height=>1, x=>25, y=>25, map=>'RGB', normalize=>'true')], [0,0,1], 'blue pixel #1');
cmp_bag([$thumbImg->GetPixels(width=>1, height=>1, x=>75, y=>75, map=>'RGB', normalize=>'true')], [0,0,1], 'blue pixel #2'); cmp_bag([$thumbImg->GetPixels(width=>1, height=>1, x=>75, y=>75, map=>'RGB', normalize=>'true')], [0,0,1], 'blue pixel #2');