summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2010-12-13 17:20:44 +0000
committerNicholas Clark <nick@ccl4.org>2010-12-14 16:59:53 +0000
commit80ed94815e0438a29d0ed646ff1c528d910e8a2d (patch)
tree4f18b4de726c2394b0ebf1938e01061adcf68707 /t
parent3d336648fb8d0ef0e9f30c671a256cbab6ba5d5a (diff)
downloadperl-80ed94815e0438a29d0ed646ff1c528d910e8a2d.tar.gz
Refactor syslfs.t and lfs.t to call bye() directly from explain() when skipping.
This will make it easier to refactoring to use Test::More/test.pl
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 7afdddf07c..67e4f64aca 100644
--- a/t/op/lfs.t
+++ b/t/op/lfs.t
@@ -53,7 +53,10 @@ sub explain {
#
EOM
}
- print "1..0 # Skip: @_\n" if @_;
+ if(@_) {
+ print "1..0 # Skip: @_\n";
+ bye();
+ }
}
$| = 1;
@@ -146,7 +149,6 @@ binmode BIG;
if ($r or not seek(BIG, 5_000_000_000, SEEK_SET)) {
my $err = $r ? 'signal '.($r & 0x7f) : $!;
explain("seeking past 2GB failed: $err");
- bye();
}
# Either the print or (more likely, thanks to buffering) the close will
@@ -163,7 +165,6 @@ unless ($print && $close) {
} else {
explain("error: $!");
}
- bye();
}
@s = stat($big0);
@@ -172,7 +173,6 @@ print "# @s\n";
unless ($s[7] == 5_000_000_003) {
explain("kernel/fs not configured to use large files?");
- bye();
}
sub fail {