work around for image magick bug

This commit is contained in:
JT Smith 2009-06-02 22:56:07 +00:00
parent e4420e31cc
commit 5509cf4d1c

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.
##->Get('pixel[x,y]') hopefully returns color in hex triplets
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=>75, y=>75, map=>'RGB', normalize=>'true')], [0,0,1], 'blue pixel #2');