aboutsummaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rwxr-xr-xt/01packdrakeng.t10
-rwxr-xr-xt/02packdrake.t6
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();