equal
deleted
inserted
replaced
10 use File::Temp; |
10 use File::Temp; |
11 |
11 |
12 my $err = File::Temp->new; |
12 my $err = File::Temp->new; |
13 my $dir = File::Temp->newdir; |
13 my $dir = File::Temp->newdir; |
14 |
14 |
|
15 note("preparing the source"); |
15 open(my $out, "+>$dir/source"); |
16 open(my $out, "+>$dir/source"); |
16 print $out rand while -s $out < SIZE; |
17 print $out rand while -s $out < SIZE; |
17 |
18 |
|
19 note("preparing the images dir"); |
18 mkdir "$dir/images"; |
20 mkdir "$dir/images"; |
19 |
21 |
20 system("perl -Mblib blib/script/imager.save $dir/source:source $dir/images"); |
22 system("perl -Mblib blib/script/imager.save $dir/source:source $dir/images"); |
21 is($? => 0, "saved"); |
23 is($? => 0, "saved"); |
22 |
24 |