diff -r 0d4074ac2eee -r 87081e9cf3ba t/001-save-restore.t --- a/t/001-save-restore.t Mon Jun 18 14:36:13 2012 +0200 +++ b/t/001-save-restore.t Wed May 13 14:58:27 2015 +0200 @@ -4,6 +4,7 @@ use autodie qw(:all); use Test::More; use Sys::Hostname; +use if $^V gt v5.18 => (experimental => 'smartmatch'); use constant SIZE => 27 * 1024 * 1024; @@ -37,6 +38,7 @@ # now compress and check again system("perl -Mblib blib/script/imager.compress $dir/images 2>$err"); +is($? => 0, "compressed") or do { seek $err => 0, 0; diag <$err> }; system("perl -Mblib blib/script/imager.restore $dir/images/idx/@{[hostname]}/source/* $dir/source.restored"); is($? => 0, "restored") or do { seek $err => 0, 0; diag <$err> }; seek($out, 0, 0);