diff options
Diffstat (limited to 'ext/IO')
| -rwxr-xr-x | ext/IO/lib/IO/t/io_const.t | 8 | ||||
| -rwxr-xr-x | ext/IO/lib/IO/t/io_dir.t | 2 | ||||
| -rwxr-xr-x | ext/IO/lib/IO/t/io_dup.t | 6 | ||||
| -rwxr-xr-x | ext/IO/lib/IO/t/io_pipe.t | 1 | ||||
| -rwxr-xr-x | ext/IO/lib/IO/t/io_sock.t | 1 | ||||
| -rw-r--r-- | ext/IO/lib/IO/t/io_unix.t | 1 | ||||
| -rw-r--r-- | ext/IO/lib/IO/t/io_xs.t | 10 |
7 files changed, 15 insertions, 14 deletions
diff --git a/ext/IO/lib/IO/t/io_const.t b/ext/IO/lib/IO/t/io_const.t index db1a322453..13bb65c0b4 100755 --- a/ext/IO/lib/IO/t/io_const.t +++ b/ext/IO/lib/IO/t/io_const.t @@ -9,10 +9,10 @@ BEGIN { use Config; BEGIN { - if(-d "lib" && -f "TEST") { - if ($Config{'extensions'} !~ /\bIO\b/ && $^O ne 'VMS') { - print "1..0\n"; - exit 0; + if($ENV{PERL_CORE}) { + if ($Config{'extensions'} !~ /\bIO\b/) { + print "1..0 # Skip: IO extension not compiled\n"; + exit 0; } } } diff --git a/ext/IO/lib/IO/t/io_dir.t b/ext/IO/lib/IO/t/io_dir.t index 6ec4e9f232..a6f03d0859 100755 --- a/ext/IO/lib/IO/t/io_dir.t +++ b/ext/IO/lib/IO/t/io_dir.t @@ -7,7 +7,7 @@ BEGIN { } require Config; import Config; if ($] < 5.00326 || not $Config{'d_readdir'}) { - print "1..0\n"; + print "1..0 # Skip: readdir() not available\n"; exit 0; } } diff --git a/ext/IO/lib/IO/t/io_dup.t b/ext/IO/lib/IO/t/io_dup.t index 5db5ced7df..351a38dfb6 100755 --- a/ext/IO/lib/IO/t/io_dup.t +++ b/ext/IO/lib/IO/t/io_dup.t @@ -10,9 +10,9 @@ BEGIN { use Config; BEGIN { - if(-d "lib" && -f "TEST") { - if ($Config{'extensions'} !~ /\bIO\b/ && $^O ne 'VMS') { - print "1..0\n"; + if($ENV{PERL_CORE}) { + if ($Config{'extensions'} !~ /\bIO\b/) { + print "1..0 # Skip: IO extension not compiled\n"; exit 0; } } diff --git a/ext/IO/lib/IO/t/io_pipe.t b/ext/IO/lib/IO/t/io_pipe.t index ae18224b12..a8bc483fd0 100755 --- a/ext/IO/lib/IO/t/io_pipe.t +++ b/ext/IO/lib/IO/t/io_pipe.t @@ -18,7 +18,6 @@ BEGIN { elsif ($Config{'extensions'} !~ /\bIO\b/) { $reason = 'IO extension unavailable'; } - undef $reason if $^O eq 'VMS'; if ($reason) { print "1..0 # Skip: $reason\n"; exit 0; diff --git a/ext/IO/lib/IO/t/io_sock.t b/ext/IO/lib/IO/t/io_sock.t index 6b241c5dfe..c4bfcc41cd 100755 --- a/ext/IO/lib/IO/t/io_sock.t +++ b/ext/IO/lib/IO/t/io_sock.t @@ -21,7 +21,6 @@ BEGIN { elsif ($Config{'extensions'} !~ /\bIO\b/) { $reason = 'IO extension unavailable'; } - undef $reason if $^O eq 'VMS' and $Config{d_socket}; if ($reason) { print "1..0 # Skip: $reason\n"; exit 0; diff --git a/ext/IO/lib/IO/t/io_unix.t b/ext/IO/lib/IO/t/io_unix.t index f120c975ea..e8ce473c53 100644 --- a/ext/IO/lib/IO/t/io_unix.t +++ b/ext/IO/lib/IO/t/io_unix.t @@ -30,7 +30,6 @@ BEGIN { } elsif ($^O =~ m/^(?:qnx|nto)$/ ) { $reason = 'Not implemented'; } - undef $reason if $^O eq 'VMS' and $Config{d_socket}; if ($reason) { print "1..0 # Skip: $reason\n"; exit 0; diff --git a/ext/IO/lib/IO/t/io_xs.t b/ext/IO/lib/IO/t/io_xs.t index 2449fc45c1..2ef9577fc4 100644 --- a/ext/IO/lib/IO/t/io_xs.t +++ b/ext/IO/lib/IO/t/io_xs.t @@ -10,12 +10,16 @@ BEGIN { use Config; BEGIN { - if(-d "lib" && -f "TEST") { - if ($Config{'extensions'} !~ /\bIO\b/ && $^O ne 'VMS') { - print "1..0\n"; + if($ENV{PERL_CORE}) { + if ($Config{'extensions'} !~ /\bIO\b/) { + print "1..0 # Skip: IO extension not built\n"; exit 0; } } + if( $^O eq 'VMS' && $Config{'vms_cc_type'} ne 'decc' ) { + print "1..0 # Skip: not compatible with the VAXCRTL\n"; + exit 0; + } } use IO::File; |