summaryrefslogtreecommitdiff
path: root/t/lib/warnings
diff options
context:
space:
mode:
Diffstat (limited to 't/lib/warnings')
-rw-r--r--t/lib/warnings/doio27
-rw-r--r--t/lib/warnings/mg4
-rw-r--r--t/lib/warnings/op20
3 files changed, 3 insertions, 48 deletions
diff --git a/t/lib/warnings/doio b/t/lib/warnings/doio
index a7165ada68..970f33ad51 100644
--- a/t/lib/warnings/doio
+++ b/t/lib/warnings/doio
@@ -171,15 +171,6 @@ Use of -l on filehandle STDIN at - line 3.
Use of -l on filehandle $fh at - line 6.
########
# doio.c [Perl_do_aexec5]
-BEGIN {
- if ($^O eq 'MacOS') {
- print <<EOM;
-SKIPPED
-# no exec on Mac OS
-EOM
- exit;
- }
-}
use warnings 'io' ;
exec "lskdjfalksdjfdjfkls","" ;
no warnings 'io' ;
@@ -189,15 +180,6 @@ OPTION regex
Can't exec "lskdjfalksdjfdjfkls": .+
########
# doio.c [Perl_do_exec3]
-BEGIN {
- if ($^O eq 'MacOS') {
- print <<EOM;
-SKIPPED
-# no exec on Mac OS
-EOM
- exit;
- }
-}
use warnings 'io' ;
exec "lskdjfalksdjfdjfkls", "abc" ;
no warnings 'io' ;
@@ -207,15 +189,6 @@ OPTION regex
Can't exec "lskdjfalksdjfdjfkls(:? abc)?": .+
########
# doio.c [win32_execvp]
-BEGIN {
- if ($^O eq 'MacOS') {
- print <<EOM;
-SKIPPED
-# no exec on Mac OS
-EOM
- exit;
- }
-}
use warnings 'exec' ;
exec $^X, "-e0" ;
EXPECT
diff --git a/t/lib/warnings/mg b/t/lib/warnings/mg
index 8915c2866b..9e3652b71e 100644
--- a/t/lib/warnings/mg
+++ b/t/lib/warnings/mg
@@ -25,7 +25,7 @@ EXPECT
########
# mg.c
use warnings 'signal' ;
-if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS' || $^O eq 'MacOS') {
+if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') {
print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit;
}
$|=1;
@@ -35,7 +35,7 @@ SIGINT handler "fred" not defined.
########
# mg.c
no warnings 'signal' ;
-if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS' || $^O eq 'MacOS') {
+if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') {
print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit;
}
$|=1;
diff --git a/t/lib/warnings/op b/t/lib/warnings/op
index 64217c744e..681ec16297 100644
--- a/t/lib/warnings/op
+++ b/t/lib/warnings/op
@@ -765,20 +765,11 @@ EXPECT
Hash %FRED missing the % in argument 1 of keys() at - line 3.
########
# op.c
-BEGIN {
- if ($^O eq 'MacOS') {
- print <<EOM;
-SKIPPED
-# no exec on Mac OS
-EOM
- exit;
- }
-}
use warnings 'syntax' ;
exec "$^X -e 1" ;
my $a
EXPECT
-Statement unlikely to be reached at - line 13.
+Statement unlikely to be reached at - line 4.
(Maybe you meant system() when you said exec()?)
########
# op.c
@@ -803,15 +794,6 @@ defined(%hash) is deprecated at - line 3.
(Maybe you should just omit the defined()?)
########
# op.c
-BEGIN {
- if ($^O eq 'MacOS') {
- print <<EOM;
-SKIPPED
-# no exec on Mac OS
-EOM
- exit;
- }
-}
no warnings 'syntax' ;
exec "$^X -e 1" ;
my $a