From 0701eb7e7a89556e56368aa738a42e63bc459303 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Fri, 17 Dec 2004 13:13:21 +0000
Subject: Neatier test labels

---
 t/01packdrakeng.t | 10 +++++-----
 t/02packdrake.t   |  6 +++---
 2 files changed, 8 insertions(+), 8 deletions(-)

(limited to 't')

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();
 
-- 
cgit v1.2.1