summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorJan Dubois <jand@activestate.com>2010-12-14 16:04:00 -0800
committerJan Dubois <jand@activestate.com>2010-12-14 17:07:25 -0800
commita5f2288d2cde2425afb3fbbaef6e47ddd39b275a (patch)
tree3f2397e32252c08be37e6ad695071345dd163f58 /t
parent1ab9ebc1154972420d469084d44fa5abd7f8a1a6 (diff)
downloadperl-a5f2288d2cde2425afb3fbbaef6e47ddd39b275a.tar.gz
skip_all() is a separate function in test.pl
and not just an argument to plan().
Diffstat (limited to 't')
-rw-r--r--t/op/lfs.t8
1 files changed, 4 insertions, 4 deletions
diff --git a/t/op/lfs.t b/t/op/lfs.t
index ad913b6d21..aac3d34ba5 100644
--- a/t/op/lfs.t
+++ b/t/op/lfs.t
@@ -44,7 +44,7 @@ sub explain {
EOM
}
if (@_) {
- plan(skip_all => "@_");
+ skip_all(@_);
}
}
@@ -54,13 +54,13 @@ print "# checking whether we have sparse files...\n";
# Known have-nots.
if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') {
- plan(skip_all => "no sparse files in $^O");
+ skip_all("no sparse files in $^O");
}
# Known haves that have problems running this test
# (for example because they do not support sparse files, like UNICOS)
if ($^O eq 'unicos') {
- plan(skip_all => "no sparse files in $^O, unable to test large files");
+ skip_all("no sparse files in $^O, unable to test large files");
}
# Then try heuristically to deduce whether we have sparse files.
@@ -109,7 +109,7 @@ print "# s2 = @s2\n";
unless ($s1[7] == 1_000_003 && $s2[7] == 2_000_003 &&
$s1[11] == $s2[11] && $s1[12] == $s2[12] &&
$s1[12] > 0) {
- plan(skip_all => "no sparse files?");
+ skip_all("no sparse files?");
}
print "# we seem to have sparse files...\n";