diff options
| -rwxr-xr-x | t/02packdrake.t | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/t/02packdrake.t b/t/02packdrake.t index 26fef2f..6a26077 100755 --- a/t/02packdrake.t +++ b/t/02packdrake.t @@ -10,7 +10,7 @@ use_ok('packdrake'); -d "test" || mkdir "test" or die "Can't create directory test"; -my $coin = " +my $coin = q{ ___________ < Coin coin > ----------- @@ -20,7 +20,7 @@ my $coin = " ( ( . / \ '-' / ~'`~'`~'`~'`~ -"; +}; sub clean_test_files { -d "test" or return; @@ -34,13 +34,13 @@ open(my $fh, "> test/file") or die "Can't create 'test/file'"; print $fh $coin; close $fh; -symlink("file", "test/link") or die "Can't create symlink 'test/link'"; +symlink("file", "test/link") or die "Can't create symlink 'test/link': $!\n"; -open($fh, "> test/list") or die "can't open 'test/list'"; +open($fh, "> test/list") or die "can't open 'test/list': $!\n"; print($fh join("\n", qw(dir file link)) ."\n"); close($fh); -open(my $listh, "< test/list"); +open(my $listh, "< test/list") or die "can't read 'test/list': $!\n"; ok(packdrake::build_archive( $listh, "test", @@ -58,7 +58,7 @@ ok($pack->extract_archive("test", qw(dir file link)), "Extracting files from arc ok(open($fh, "test/file"), "Opening extract file"); sysread($fh, my $data, 1_000); -ok($data == $coin, "data succefully restored"); +ok($data eq $coin, "data succefully restored"); ok(-d "test/dir", "dir succefully restored"); ok(readlink("test/link") eq "file", "symlink succefully restored"); |