make img unittest easier to debug
parent
fa2a4d0db4
commit
a0a26d24f9
5
t/img.t
5
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,6 +59,7 @@ is(size("$outpath/16x-p1-twopages.png"), "16x2");
|
|||
|
||||
# now let's remove them again
|
||||
|
||||
if (1) { # for easier testing
|
||||
writefile("imgconversions.mdwn", "t/tmp/in", "nothing to see here");
|
||||
|
||||
ok(! system("$command --refresh"));
|
||||
|
@ -69,6 +71,7 @@ ok(! -e "$outpath/10x-p1-simple-pdf.png");
|
|||
|
||||
# cleanup
|
||||
ok(! system("rm -rf t/tmp"));
|
||||
}
|
||||
done_testing;
|
||||
|
||||
1;
|
||||
|
|
Loading…
Reference in New Issue