From: Tony Cook <tony@develop-help.com>
Date: Thu, 17 Mar 2016 09:07:22 +0000 (+1100)
Subject: add write failure diagnostics for 250-draw/010-draw.t
X-Git-Tag: v1.004_002~2
X-Git-Url: http://git.imager.perl.org/imager.git/commitdiff_plain/4c33a593b81cd7e9c4cf810498f22eddb399d8f4?ds=sidebyside

add write failure diagnostics for 250-draw/010-draw.t

This is failing on BiNGOs Solaris smoker, eg:

http://cpantesters.org/cpan/report/417ab3e8-b51f-11e5-895c-94abaef69d38
---

diff --git a/t/250-draw/010-draw.t b/t/250-draw/010-draw.t
index a1f7f2ab..138786f1 100644
--- a/t/250-draw/010-draw.t
+++ b/t/250-draw/010-draw.t
@@ -187,7 +187,8 @@ my $white = '#FFFFFF';
   is_color3($im->getpixel(x => 198, y => 202), 0, 0, 0,
 	    "check center not filled");
   ok($im->write(file => "testout/t21arcout.ppm"),
-     "save arc outline");
+     "save arc outline")
+    or diag "failed writing testout/t21arcout.ppm: ".$im->errstr;
 }
 
 {
@@ -239,7 +240,8 @@ my $white = '#FFFFFF';
   is_color3($im->getpixel(x => 198, y => 202), 0, 0, 0,
 	    "check center not filled");
   ok($im->write(file => "testout/t21aaarcout.ppm"),
-     "save arc outline");
+     "save arc outline")
+    or diag "Failed writing testout/t21aaarcout.ppm: " . $im->errstr;
 }
 
 {
@@ -261,7 +263,8 @@ my $white = '#FFFFFF';
     $an += $step;
   }
   ok($im->write(file => "testout/t21aaarcs.ppm"),
-     "save arc outline");
+     "save arc outline")
+    or diag "failed writing testout/t21aaarcs.ppm: ".$im->errstr;
 }
 
 {
@@ -273,7 +276,8 @@ my $white = '#FFFFFF';
   ok($im->arc(x => 100, y => 100, aa => 1, filled => 0, color => '#fff',
 	      d1 => 270, d2 => 90, r => 80), "draw aa arc through 0");
   ok($im->write(file => "testout/t21arc0.ppm"),
-     "save arc through 0");
+     "save arc through 0")
+    or diag "Failed writing testout/t21arc0.ppm: ".$im->errstr;
 }
 
 {