report the error if we can't read the alpha test images

diff --git a/t/t106tiff.t b/t/t106tiff.t
index 8c7793a0e2c14046320333b89b20d1ec79115890..0c964eca46abe53ae94870603bd50bfc3cee4647 100644 (file)
--- a/t/t106tiff.t
+++ b/t/t106tiff.t
@@ -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");