--- a/t/001-save-restore.t Fri Aug 19 16:39:09 2011 +0200
+++ b/t/001-save-restore.t Mon Aug 22 14:30:27 2011 +0200
@@ -18,6 +18,11 @@
note("preparing the images dir");
mkdir "$dir/images";
+mkdir "$dir/mnt";
+
+system("sudo mount -ttmpfs -osize=10M,uid=$> tmpfs $dir/mnt 2>/dev/null");
+END { system("sudo umount $dir/mnt 2>/dev/null") };
+
system("perl -Mblib blib/script/imager.save $dir/source:source $dir/images");
is($? => 0, "saved");
@@ -38,5 +43,11 @@
open($restored, "$dir/source.restored");
ok(<$out> ~~ <$restored>, "compressed source === restored");
+# now check on overflow of destination
+
+note("overflow condition");
+eval { system("perl -Mblib blib/script/imager.save $dir/source:source $dir/mnt 2>$err") };
+ok($?, "failure is expected");
+
done_testing;