testimg/nocmap.gif
testimg/palette.png
testimg/palette_out.png
-testimg/pgm.pgm Simple pgm for testing the right sample is in the right place
testimg/penguin-base.ppm
+testimg/pgm.pgm Simple pgm for testing the right sample is in the right place
testimg/scale.gif
testimg/scale.ppm
testimg/scalei.gif
# check we correctly sync with the data stream
my $im = Imager->new;
ok($im->read(file => 'testimg/pgm.pgm', type => 'pnm'),
- "read pgm.pgm");
+ "read pgm.pgm")
+ or print "# cannot read pgm.pgm: ", $im->errstr, "\n";
print "# ", $im->getsamples('y' => 0), "\n";
is_color1($im->getpixel(x=>0, 'y' => 0), 254, "check top left");
}