]> git.imager.perl.org - imager.git/commitdiff
pgm.pgm was missing from MANIFEST
authorTony Cook <tony@develop=help.com>
Mon, 19 Feb 2007 23:52:03 +0000 (23:52 +0000)
committerTony Cook <tony@develop=help.com>
Mon, 19 Feb 2007 23:52:03 +0000 (23:52 +0000)
MANIFEST
t/t104ppm.t

index 32c781741fabcf8024d962b2b9471e78bde0764b..95f8f1abdc3be0bf5edfb502beadaef1e02e98db 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -300,8 +300,8 @@ testimg/newgimpgrad.ggr Test GIMP Gradient file (newer type)
 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
index a164f86d436d19b83f89ffb5bd389ee1fb666a0c..690b2dae819e7119d127f5cfbbe7aee82bb73aa7 100644 (file)
@@ -202,7 +202,8 @@ is($ooim->tags(name=>'pnm_type'), 1, "check pnm_type tag");
   # 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");
 }