diff options
Diffstat (limited to 'contrib/perl5/t/op/exec.t')
-rwxr-xr-x | contrib/perl5/t/op/exec.t | 48 |
1 files changed, 0 insertions, 48 deletions
diff --git a/contrib/perl5/t/op/exec.t b/contrib/perl5/t/op/exec.t deleted file mode 100755 index 23e9ec1..0000000 --- a/contrib/perl5/t/op/exec.t +++ /dev/null @@ -1,48 +0,0 @@ -#!./perl - -$| = 1; # flush stdout - -$ENV{LC_ALL} = 'C'; # Forge English error messages. -$ENV{LANGUAGE} = 'C'; # Ditto in GNU. - -if ($^O eq 'MSWin32') { - # XXX the system tests could be written to use ./perl and so work on Win32 - print "1..0 # Skip: shh, win32\n"; - exit(0); -} - -print "1..8\n"; - -if ($^O ne 'os2') { - print "not ok 1\n" if system "echo ok \\1"; # shell interpreted -} -else { - print "ok 1 # skipped: bug/feature of pdksh\n"; # shell interpreted -} -print "not ok 2\n" if system "echo ok 2"; # split and directly called -print "not ok 3\n" if system "echo", "ok", "3"; # directly called - -# these should probably be rewritten to match the examples in perlfunc.pod -if (system "true") {print "not ok 4\n";} else {print "ok 4\n";} - -if ($^O eq 'mpeix') { - print "ok 5 # skipped: status broken on MPE/iX\n"; -} else { - if ((system "/bin/sh -c 'exit 1'") != 256) { print "not "; } - print "ok 5\n"; -} - -$rc = system "lskdfj"; -if ($rc == 255 << 8 or $rc == -1 and - ( - $! == 2 or - $! =~ /\bno\b.*\bfile/i or - $! == 13 or - $! =~ /permission denied/i - ) - ) - {print "ok 6\n";} else {print "not ok 6\n";} - -unless (exec "lskdjfalksdjfdjfkls") {print "ok 7\n";} else {print "not ok 7\n";} - -exec "echo","ok","8"; |