5 $ENV{LC_ALL} = 'C'; # Forge English error messages.
6 $ENV{LANGUAGE} = 'C'; # Ditto in GNU.
8 if ($^O eq 'MSWin32' || $^O eq 'NetWare') {
9 # XXX the system tests could be written to use ./perl and so work on Win32
10 print "1..0 # Skip: shh, win32\n";
15 # XXX the system tests could be written to use ./perl and so work on Win32
16 print "1..0 # Mostly useless tests for Mac OS\n";
23 print "not ok 1\n" if system "echo ok \\1"; # shell interpreted
26 print "ok 1 # skipped: bug/feature of pdksh\n"; # shell interpreted
28 print "not ok 2\n" if system "echo ok 2"; # split and directly called
29 print "not ok 3\n" if system "echo", "ok", "3"; # directly called
31 # these should probably be rewritten to match the examples in perlfunc.pod
32 if (system "true") {print "not ok 4\n";} else {print "ok 4\n";}
35 print "ok 5 # skipped: status broken on MPE/iX\n";
37 if ((system "/bin/sh -c 'exit 1'") != 256) { print "not "; }
41 $rc = system "lskdfj";
42 if ($rc == 255 << 8 or $rc == -1 and
45 $! =~ /\bno\b.*\bfile/i or
47 $! =~ /permission denied/i
50 {print "ok 6\n";} else {print "not ok 6\n";}
52 unless (exec "lskdjfalksdjfdjfkls") {print "ok 7\n";} else {print "not ok 7\n";}