This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Refactor syslfs.t and lfs.t to call bye() directly from explain() when skipping.
authorNicholas Clark <nick@ccl4.org>
Mon, 13 Dec 2010 17:20:44 +0000 (17:20 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 14 Dec 2010 16:59:53 +0000 (16:59 +0000)
This will make it easier to refactoring to use Test::More/test.pl

ext/Fcntl/t/syslfs.t
t/op/lfs.t

index 244ff60..c6252cc 100644 (file)
@@ -52,7 +52,10 @@ sub explain {
 #
 EOM
     }
-    print "1..0 # Skip: @_\n" if @_;
+    if (@_) {
+       print "1..0 # Skip: @_\n";
+       bye();
+    }
 }
 
 $| = 1;
@@ -144,7 +147,6 @@ unless (! $r && defined $sysseek && $sysseek == 5_000_000_000) {
     $sysseek = 'undef' unless defined $sysseek;
     explain("seeking past 2GB failed: ",
            $r ? 'signal '.($r & 0x7f) : "$! (sysseek returned $sysseek)");
-    bye();
 }
 
 # The syswrite will fail if there are are filesize limitations (process or fs).
@@ -162,7 +164,6 @@ unless($syswrite && $close) {
     } else {
        explain("error: $!");
     }
-    bye();
 }
 
 @s = stat($big0);
@@ -171,7 +172,6 @@ print "# @s\n";
 
 unless ($s[7] == 5_000_000_003) {
     explain("kernel/fs not configured to use large files?");
-    bye();
 }
 
 sub fail {
index 7afdddf..67e4f64 100644 (file)
@@ -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 {