report the error if we can't read the alpha test images
authorTony Cook <tony@develop=help.com>
Tue, 18 Jul 2006 12:49:31 +0000 (12:49 +0000)
committerTony Cook <tony@develop=help.com>
Tue, 18 Jul 2006 12:49:31 +0000 (12:49 +0000)
t/t106tiff.t

index 8c7793a..0c964ec 100644 (file)
@@ -441,7 +441,8 @@ SKIP:
     for my $test (@alpha_images) {
       my $im = Imager->new;
       ok($im->read(file => "testimg/$test->[0]"),
-        "read alpha test $test->[0]");
+        "read alpha test $test->[0]")
+         or print "# ", $im->errstr, "\n";
       is($im->getchannels, $test->[1], "channels for $test->[0] match");
       is($im->tags(name=>'tiff_photometric'), $test->[2],
         "photometric for $test->[0] match");