--- 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);