diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/io/layers.t | 7 | ||||
| -rw-r--r-- | t/io/through.t | 8 | ||||
| -rw-r--r-- | t/op/fork.t | 14 | ||||
| -rw-r--r-- | t/op/lfs.t | 10 | ||||
| -rw-r--r-- | t/uni/lex_utf8.t | 5 |
5 files changed, 15 insertions, 29 deletions
diff --git a/t/io/layers.t b/t/io/layers.t index 4e4204377e..d0b55f1742 100644 --- a/t/io/layers.t +++ b/t/io/layers.t @@ -13,11 +13,8 @@ BEGIN { # Makes testing easier. $ENV{PERLIO} = 'stdio' if exists $ENV{PERLIO} && $ENV{PERLIO} eq ''; - if (exists $ENV{PERLIO} && $ENV{PERLIO} !~ /^(stdio|perlio|mmap)$/) { - # We are not prepared for anything else. - print "1..0 # PERLIO='$ENV{PERLIO}' unknown\n"; - exit 0; - } + skip_all("PERLIO='$ENV{PERLIO}' unknown") + if exists $ENV{PERLIO} && $ENV{PERLIO} !~ /^(stdio|perlio|mmap)$/; $PERLIO = exists $ENV{PERLIO} ? $ENV{PERLIO} : "(undef)"; } diff --git a/t/io/through.t b/t/io/through.t index a76c64dedb..315de90b86 100644 --- a/t/io/through.t +++ b/t/io/through.t @@ -1,16 +1,14 @@ #!./perl BEGIN { - if ($^O eq 'VMS') { - print "1..0 # Skip on VMS -- too picky about line endings for record-oriented pipes\n"; - exit; - } chdir 't' if -d 't'; @INC = '../lib'; + require './test.pl'; + skip_all("VMS too picky about line endings for record-oriented pipes") + if $^O eq 'VMS'; } use strict; -require './test.pl'; my $Perl = which_perl(); diff --git a/t/op/fork.t b/t/op/fork.t index d1b6e5b1f7..3c403945fa 100644 --- a/t/op/fork.t +++ b/t/op/fork.t @@ -5,19 +5,15 @@ BEGIN { chdir 't' if -d 't'; @INC = '../lib'; - require Config; import Config; - unless ($Config{'d_fork'} or $Config{'d_pseudofork'}) { - print "1..0 # Skip: no fork\n"; - exit 0; - } $ENV{PERL5LIB} = "../lib"; require './test.pl'; + require Config; + skip_all('no fork') + unless ($Config::Config{d_fork} or $Config::Config{d_pseudofork}); } -if ($^O eq 'mpeix') { - print "1..0 # Skip: fork/status problems on MPE/iX\n"; - exit 0; -} +skip_all('fork/status problems on MPE/iX') + if $^O eq 'mpeix'; $|=1; diff --git a/t/op/lfs.t b/t/op/lfs.t index aac3d34ba5..f06d19261c 100644 --- a/t/op/lfs.t +++ b/t/op/lfs.t @@ -5,13 +5,11 @@ BEGIN { chdir 't' if -d 't'; @INC = '../lib'; - # Don't bother if there are no quad offsets. - require Config; import Config; - if ($Config{lseeksize} < 8) { - print "1..0 # Skip: no 64-bit file offsets\n"; - exit(0); - } require './test.pl'; + require Config; + # Don't bother if there are no quad offsets. + skip_all('no 64-bit file offsets') + if $Config::Config{lseeksize} < 8; } use strict; diff --git a/t/uni/lex_utf8.t b/t/uni/lex_utf8.t index a5747cb577..e080245d6e 100644 --- a/t/uni/lex_utf8.t +++ b/t/uni/lex_utf8.t @@ -3,14 +3,11 @@ # This script is written intentionally in UTF-8 BEGIN { - if (ord("A") == 193) { - print "1..0 # Skip: EBCDIC\n"; - exit 0; - } $| = 1; require './test.pl'; skip_all_if_miniperl("no dynamic loading on miniperl, no re"); + skip_all('EBCDIC') if $::IS_EBCDIC; } use strict; |