From: Tony Cook <tony@develop=help.com>
Date: Tue, 18 Jul 2006 12:49:31 +0000 (+0000)
Subject: report the error if we can't read the alpha test images
X-Git-Tag: Imager-0.52~16
X-Git-Url: http://git.imager.perl.org/imager.git/commitdiff_plain/8a41a62642afc9e706084eef1c3194496e669f6b

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

diff --git a/t/t106tiff.t b/t/t106tiff.t
index 8c7793a0..0c964eca 100644
--- 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");