summaryrefslogtreecommitdiff
path: root/t/lib
diff options
context:
space:
mode:
Diffstat (limited to 't/lib')
-rw-r--r--t/lib/filter-util.pl1
-rw-r--r--t/lib/warnings/doio27
-rw-r--r--t/lib/warnings/mg6
-rw-r--r--t/lib/warnings/op18
4 files changed, 49 insertions, 3 deletions
diff --git a/t/lib/filter-util.pl b/t/lib/filter-util.pl
index c378f221d7..1bc3bfbd93 100644
--- a/t/lib/filter-util.pl
+++ b/t/lib/filter-util.pl
@@ -45,6 +45,7 @@ sub ok
$Inc = '' ;
foreach (@INC)
{ $Inc .= "\"-I$_\" " }
+$Inc = "-I::lib" if $^O eq 'MacOS';
$Perl = '' ;
$Perl = ($ENV{'FULLPERL'} or $^X or 'perl') ;
diff --git a/t/lib/warnings/doio b/t/lib/warnings/doio
index 569229d35f..bb09aa8552 100644
--- a/t/lib/warnings/doio
+++ b/t/lib/warnings/doio
@@ -171,6 +171,15 @@ 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' ;
@@ -180,6 +189,15 @@ 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' ;
@@ -189,6 +207,15 @@ 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 2190638dc2..f7c3ebf435 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') {
+if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS' || $^O eq 'MacOS') {
print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit;
}
$|=1;
@@ -35,8 +35,8 @@ SIGINT handler "fred" not defined.
########
# mg.c
no warnings 'signal' ;
-if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') {
- print "SKIPPED\n# win32, can't kill() to raise()\n"; exit;
+if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS' || $^O eq 'MacOS') {
+ print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit;
}
$|=1;
$SIG{"INT"} = "fred"; kill "INT",$$;
diff --git a/t/lib/warnings/op b/t/lib/warnings/op
index 387e620efa..16e1fd9b05 100644
--- a/t/lib/warnings/op
+++ b/t/lib/warnings/op
@@ -809,6 +809,15 @@ 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
@@ -838,6 +847,15 @@ 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