t/001-save-restore.t
changeset 80 ffde94c51cd4
parent 77 e65d90b1682d
child 124 87081e9cf3ba
--- 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;