2 use strict;

     2 use strict;

     3 use warnings;

     3 use warnings;

     4 use autodie qw(:all);

     4 use autodie qw(:all);

     5 use Test::More;

     5 use Test::More;

     6 use Sys::Hostname;

     6 use Sys::Hostname;

     7 

     8 

     8 use constant SIZE => 27 * 1024 * 1024;

     9 use constant SIZE => 27 * 1024 * 1024;

     9 

    10 

    10 use File::Temp;

    11 use File::Temp;

    11 

    12 

    35 open(my $restored, "$dir/source.restored");

    36 open(my $restored, "$dir/source.restored");

    36 ok(<$out> ~~ <$restored>, "source === restored");

    37 ok(<$out> ~~ <$restored>, "source === restored");

    37 

    38 

    38 # now compress and check again

    39 # now compress and check again

    39 system("perl -Mblib blib/script/imager.compress $dir/images 2>$err");

    40 system("perl -Mblib blib/script/imager.compress $dir/images 2>$err");

    40 system("perl -Mblib blib/script/imager.restore $dir/images/idx/@{[hostname]}/source/* $dir/source.restored");

    42 system("perl -Mblib blib/script/imager.restore $dir/images/idx/@{[hostname]}/source/* $dir/source.restored");

    41 is($? => 0, "restored") or do { seek $err => 0, 0; diag <$err> };

    43 is($? => 0, "restored") or do { seek $err => 0, 0; diag <$err> };

    42 seek($out, 0, 0);

    44 seek($out, 0, 0);

    43 open($restored, "$dir/source.restored");

    45 open($restored, "$dir/source.restored");

    44 ok(<$out> ~~ <$restored>, "compressed source === restored");

    46 ok(<$out> ~~ <$restored>, "compressed source === restored");