diff options
Diffstat (limited to 't/lib')
-rw-r--r-- | t/lib/filter-util.pl | 1 | ||||
-rw-r--r-- | t/lib/warnings/doio | 27 | ||||
-rw-r--r-- | t/lib/warnings/mg | 6 | ||||
-rw-r--r-- | t/lib/warnings/op | 18 |
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 |