equal
deleted
inserted
replaced
7 |
7 |
8 use constant SIZE => 27 * 1024 * 1024; |
8 use constant SIZE => 27 * 1024 * 1024; |
9 |
9 |
10 use File::Temp; |
10 use File::Temp; |
11 |
11 |
|
12 my $err = File::Temp->new; |
12 my $dir = File::Temp->newdir; |
13 my $dir = File::Temp->newdir; |
13 |
14 |
14 open(my $out, "+>$dir/source"); |
15 open(my $out, "+>$dir/source"); |
15 print $out rand while -s $out < SIZE; |
16 print $out rand while -s $out < SIZE; |
16 |
17 |
26 seek($out, 0, 0); |
27 seek($out, 0, 0); |
27 open(my $restored, "$dir/source.restored"); |
28 open(my $restored, "$dir/source.restored"); |
28 ok(<$out> ~~ <$restored>, "source === restored"); |
29 ok(<$out> ~~ <$restored>, "source === restored"); |
29 |
30 |
30 # now compress and check again |
31 # now compress and check again |
31 system("perl -Mblib blib/script/imager.compress $dir/images"); |
32 system("perl -Mblib blib/script/imager.compress $dir/images 2>$err"); |
32 system("perl -Mblib blib/script/imager.restore $dir/images/idx/@{[hostname]}/source/* $dir/source.restored"); |
33 system("perl -Mblib blib/script/imager.restore $dir/images/idx/@{[hostname]}/source/* $dir/source.restored"); |
33 is($? => 0, "restored"); |
34 is($? => 0, "restored") or do { seek $err => 0, 0; diag <$err> }; |
34 seek($out, 0, 0); |
35 seek($out, 0, 0); |
35 open($restored, "$dir/source.restored"); |
36 open($restored, "$dir/source.restored"); |
36 ok(<$out> ~~ <$restored>, "compressed source === restored"); |
37 ok(<$out> ~~ <$restored>, "compressed source === restored"); |
37 |
38 |
38 |
39 |