1 use 5.010;

     2 use strict;

     3 use warnings;

     4 use autodie qw(:all);

     5 use Test::More;

     6 use Sys::Hostname;

     7 

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

     9 

    10 use File::Temp;

    11 

    12 my $dir = File::Temp->newdir;

    13 

    14 open(my $out, "+>$dir/source");

    15 print $out rand while -s $out < SIZE;

    16 

    17 mkdir "$dir/images";

    18 

    19 system("perl -Mblib blib/script/imager.save $dir/source:source $dir/images");

    20 is($? => 0, "saved");

    21 

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

    23 is($? => 0, "restored");

    24 

    25 # just as it is

    26 seek($out, 0, 0);

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

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

    29 

    30 # now compress and check again

    31 system("perl -Mblib blib/script/imager.compress $dir/images");

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

    33 is($? => 0, "restored");

    34 seek($out, 0, 0);

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

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

    37 

    38 

    39 done_testing;