make img unittest easier to debug
authorchrysn <chrysn@fsfe.org>
Tue, 15 Jul 2014 12:03:00 +0000 (14:03 +0200)
committerchrysn <chrysn@fsfe.org>
Tue, 15 Jul 2014 12:03:00 +0000 (14:03 +0200)
t/img.t

diff --git a/t/img.t b/t/img.t
index 0183f8779d3034b36c8a436e558c428f8b88b636..ba28d273402ccb390d735e69340a43e298d7ece8 100755 (executable)
--- a/t/img.t
+++ b/t/img.t
@@ -43,7 +43,8 @@ ok(! system($command));
 sub size($) {
        my $filename = shift;
        my $im = Image::Magick->new();
-       $im->Read($filename);
+       my $r = $im->Read($filename);
+       return "no image" if $r;
        my $w = $im->Get("width");
        my $h = $im->Get("height");
        return "${w}x${h}";
@@ -58,17 +59,19 @@ is(size("$outpath/16x-p1-twopages.png"), "16x2");
 
 # now let's remove them again
 
-writefile("imgconversions.mdwn", "t/tmp/in", "nothing to see here");
+if (1) { # for easier testing
+       writefile("imgconversions.mdwn", "t/tmp/in", "nothing to see here");
 
-ok(! system("$command --refresh"));
+       ok(! system("$command --refresh"));
 
-ok(! -e "$outpath/10x-simple.png");
-ok(! -e "$outpath/10x-simple-svg.png");
-ok(! -e "$outpath/10x-simple-pdf.png");
-ok(! -e "$outpath/10x-p1-simple-pdf.png");
+       ok(! -e "$outpath/10x-simple.png");
+       ok(! -e "$outpath/10x-simple-svg.png");
+       ok(! -e "$outpath/10x-simple-pdf.png");
+       ok(! -e "$outpath/10x-p1-simple-pdf.png");
 
-# cleanup
-ok(! system("rm -rf t/tmp"));
+       # cleanup
+       ok(! system("rm -rf t/tmp"));
+}
 done_testing;
 
 1;