aboutsummaryrefslogtreecommitdiffstats
path: root/t/01packdrakeng.t
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-12-17 13:13:21 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-12-17 13:13:21 +0000
commit0701eb7e7a89556e56368aa738a42e63bc459303 (patch)
treea5f75bb54af7bfdc8c713e5e0f26ea969b2c4b80 /t/01packdrakeng.t
parentf65f03e6a0fe20661e1c09ce4412264ce8c15309 (diff)
downloadrpmtools-0701eb7e7a89556e56368aa738a42e63bc459303.tar
rpmtools-0701eb7e7a89556e56368aa738a42e63bc459303.tar.gz
rpmtools-0701eb7e7a89556e56368aa738a42e63bc459303.tar.bz2
rpmtools-0701eb7e7a89556e56368aa738a42e63bc459303.tar.xz
rpmtools-0701eb7e7a89556e56368aa738a42e63bc459303.zip
Neatier test labels
Diffstat (limited to 't/01packdrakeng.t')
-rwxr-xr-xt/01packdrakeng.t10
1 files changed, 5 insertions, 5 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");
}