produce additional diagnostics on some TIFF tests

Intended to help track down the problem with:

http://www.cpantesters.org/cpan/report/6396db1e-8090-11e0-9682-112b785ebe45

diff --git a/Changes b/Changes
index b1d07297d528031e4b0bc8720d1cd86a6c262ec6..78b78d59026a1bf0f8699ff0144d3ea85a3fb1c8 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,14 @@
 Imager release history.  Older releases can be found in Changes.old
 
+Imager 0.83
+===========
+
+Bug fixes:
+
+ - diag() the error message on failure for some TIFF tests that are
+   failing on a Solaris smoker.
+   http://www.cpantesters.org/cpan/report/6396db1e-8090-11e0-9682-112b785ebe45
+
 Imager 0.82_01 - 17 May 2011
 ==============
 

diff --git a/TIFF/t/t10tiff.t b/TIFF/t/t10tiff.t
index ddbc2366dd110ff4093ba2530d7b267b78521a86..b2e00b1307c31449ca7dc3de65c909eb3fe11c1c 100644 (file)
--- a/TIFF/t/t10tiff.t
+++ b/TIFF/t/t10tiff.t
@@ -309,17 +309,21 @@ for my $i (0..$#imgs) {
 # correctly on read
 @imgs = map $ooim->copy(), 1..40;
 $rc = Imager->write_multi({file=>'testout/t106_multi2.tif'}, @imgs);
-ok($rc, "writing 40 images to tiff");
+ok($rc, "writing 40 images to tiff")
+  or diag("writing 40 images: " . Imager->errstr);
 @out = Imager->read_multi(file=>'testout/t106_multi2.tif');
-ok(@imgs == @out, "reading 40 images from tiff");
+ok(@imgs == @out, "reading 40 images from tiff")
+  or diag("reading 40 images:" . Imager->errstr);
 # force some allocation activity - helps crash here if it's the problem
 @out = @imgs = ();
 
 # multi-image fax files
 ok(Imager->write_multi({file=>'testout/t106_faxmulti.tiff', class=>'fax'},
-                      $oofim, $oofim), "write multi fax image");
+                      $oofim, $oofim), "write multi fax image")
+  or diag("writing 40 fax pages: " . Imager->errstr);
 @imgs = Imager->read_multi(file=>'testout/t106_faxmulti.tiff');
-ok(@imgs == 2, "reading multipage fax");
+ok(@imgs == 2, "reading multipage fax")
+  or diag("reading 40 fax pages: " . Imager->errstr);
 ok(Imager::i_img_diff($imgs[0]{IMG}, $oofim->{IMG}) == 0,
    "compare first fax image");
 ok(Imager::i_img_diff($imgs[1]{IMG}, $oofim->{IMG}) == 0,