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 a1f7f2ab71278c26b554a446465d49534e4e788d..138786f1c1e30bee67bce85172a3a789ef3bbc47 100644 (file)
--- 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"),
   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"),
   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"),
     $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"),
   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;

 }
 
 {
 }
 
 {