This will make it easier to refactoring to use Test::More/test.pl
#
EOM
}
- print "1..0 # Skip: @_\n" if @_;
+ if (@_) {
+ print "1..0 # Skip: @_\n";
+ bye();
+ }
}
$| = 1;
$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).
} else {
explain("error: $!");
}
- bye();
}
@s = stat($big0);
unless ($s[7] == 5_000_000_003) {
explain("kernel/fs not configured to use large files?");
- bye();
}
sub fail {
#
EOM
}
- print "1..0 # Skip: @_\n" if @_;
+ if(@_) {
+ print "1..0 # Skip: @_\n";
+ bye();
+ }
}
$| = 1;
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
} else {
explain("error: $!");
}
- bye();
}
@s = stat($big0);
unless ($s[7] == 5_000_000_003) {
explain("kernel/fs not configured to use large files?");
- bye();
}
sub fail {