diff options
Diffstat (limited to 't')
-rwxr-xr-x | t/01packdrakeng.t | 10 | ||||
-rwxr-xr-x | t/02packdrake.t | 6 |
2 files changed, 8 insertions, 8 deletions
diff --git a/t/01packdrakeng.t b/t/01packdrakeng.t index 6216dd5..6fbb200 100755 --- a/t/01packdrakeng.t +++ b/t/01packdrakeng.t @@ -85,13 +85,13 @@ clean_test_files(); { my ($handle, $filename) = Packdrakeng::tempfile(); ok($handle && $filename, "can create temp file"); -ok(-f $filename, "Temp file exist"); +ok(-f $filename, "Temp file exists"); ok(print($handle $coin), "can write into file"); close($handle); unlink($filename); ok(Packdrakeng::mkpath('test/parent/child'), "can create dir like mkdir -p"); -ok(-d 'test/parent/child', "the dir really exist"); +ok(-d 'test/parent/child', "the dir really exists"); } # Single test: @@ -112,16 +112,16 @@ $pack = undef; ok($pack = Packdrakeng->open(archive => "packtest.cz"), "Opening the archive"); ok($pack->extract("test", "dir"), "Extracting dir"); -ok(-d "test/dir", "dir succefully restore"); +ok(-d "test/dir", "dir successfully restored"); ok($pack->extract("test", "symlink"), "Extracting symlink"); -ok(readlink("test/symlink") eq "dest", "symlink succefully restore"); +ok(readlink("test/symlink") eq "dest", "symlink successfully restored"); open($fh, "+> test/test") or die "Can't open file $!"; ok($pack->extract_virtual($fh, "coin"), "Extracting data"); sysseek($fh, 0, 0); sysread($fh, my $data, 1000); close($fh); -ok($data eq $coin, "Data are correct"); +ok($data eq $coin, "Data is correct"); } diff --git a/t/02packdrake.t b/t/02packdrake.t index 6a26077..1d0aebf 100755 --- a/t/02packdrake.t +++ b/t/02packdrake.t @@ -58,9 +58,9 @@ 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 eq $coin, "data succefully restored"); -ok(-d "test/dir", "dir succefully restored"); -ok(readlink("test/link") eq "file", "symlink succefully restored"); +ok($data eq $coin, "data successfully restored"); +ok(-d "test/dir", "dir successfully restored"); +ok(readlink("test/link") eq "file", "symlink successfully restored"); clean_test_files(); |