produce additional diagnostics on some TIFF tests
[imager.git] / TIFF / t / t10tiff.t
index ddbc236..b2e00b1 100644 (file)
@@ -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,