equal
deleted
inserted
replaced
16 open(my $out, "+>$dir/source"); |
16 open(my $out, "+>$dir/source"); |
17 print $out rand while -s $out < SIZE; |
17 print $out rand while -s $out < SIZE; |
18 |
18 |
19 note("preparing the images dir"); |
19 note("preparing the images dir"); |
20 mkdir "$dir/images"; |
20 mkdir "$dir/images"; |
|
21 mkdir "$dir/mnt"; |
|
22 |
|
23 system("sudo mount -ttmpfs -osize=10M,uid=$> tmpfs $dir/mnt 2>/dev/null"); |
|
24 END { system("sudo umount $dir/mnt 2>/dev/null") }; |
|
25 |
21 |
26 |
22 system("perl -Mblib blib/script/imager.save $dir/source:source $dir/images"); |
27 system("perl -Mblib blib/script/imager.save $dir/source:source $dir/images"); |
23 is($? => 0, "saved"); |
28 is($? => 0, "saved"); |
24 |
29 |
25 system("perl -Mblib blib/script/imager.restore $dir/images/idx/@{[hostname]}/source/* $dir/source.restored"); |
30 system("perl -Mblib blib/script/imager.restore $dir/images/idx/@{[hostname]}/source/* $dir/source.restored"); |
36 is($? => 0, "restored") or do { seek $err => 0, 0; diag <$err> }; |
41 is($? => 0, "restored") or do { seek $err => 0, 0; diag <$err> }; |
37 seek($out, 0, 0); |
42 seek($out, 0, 0); |
38 open($restored, "$dir/source.restored"); |
43 open($restored, "$dir/source.restored"); |
39 ok(<$out> ~~ <$restored>, "compressed source === restored"); |
44 ok(<$out> ~~ <$restored>, "compressed source === restored"); |
40 |
45 |
|
46 # now check on overflow of destination |
|
47 |
|
48 note("overflow condition"); |
|
49 eval { system("perl -Mblib blib/script/imager.save $dir/source:source $dir/mnt 2>$err") }; |
|
50 ok($?, "failure is expected"); |
|
51 |
41 |
52 |
42 done_testing; |
53 done_testing; |