add write failure diagnostics for 250-draw/010-draw.t
authorTony Cook <tony@develop-help.com>
Thu, 17 Mar 2016 09:07:22 +0000 (20:07 +1100)
committerTony Cook <tony@develop-help.com>
Thu, 17 Mar 2016 09:07:22 +0000 (20:07 +1100)
This is failing on BiNGOs Solaris smoker, eg:

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

t/250-draw/010-draw.t

index a1f7f2a..138786f 100644 (file)
@@ -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;
 }
 
 {