t/001-save-restore.t
changeset 76 b87d2064db02
parent 74 a8495233e04c
child 77 e65d90b1682d
--- a/t/001-save-restore.t	Wed Aug 17 17:01:24 2011 +0200
+++ b/t/001-save-restore.t	Wed Aug 17 17:21:04 2011 +0200
@@ -9,6 +9,7 @@
 
 use File::Temp;
 
+my $err = File::Temp->new;
 my $dir = File::Temp->newdir;
 
 open(my $out, "+>$dir/source");
@@ -28,9 +29,9 @@
 ok(<$out> ~~ <$restored>, "source === restored");
 
 # now compress and check again
-system("perl -Mblib blib/script/imager.compress $dir/images");
+system("perl -Mblib blib/script/imager.compress $dir/images 2>$err");
 system("perl -Mblib blib/script/imager.restore $dir/images/idx/@{[hostname]}/source/* $dir/source.restored");
-is($? => 0, "restored");
+is($? => 0, "restored") or do { seek $err => 0, 0; diag <$err> };
 seek($out, 0, 0);
 open($restored, "$dir/source.restored");
 ok(<$out> ~~ <$restored>, "compressed source === restored");