perl 5.003_07: t/lib/io_pipe.t
[perl.git] / t / op / exec.t
1 #!./perl
2
3 # $RCSfile: exec.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:49 $
4
5 $| = 1;                         # flush stdout
6 print "1..8\n";
7
8 print "not ok 1\n" if system "echo ok \\1";     # shell interpreted
9 print "not ok 2\n" if system "echo ok 2";       # split and directly called
10 print "not ok 3\n" if system "echo", "ok", "3"; # directly called
11
12 if (system "true") {print "not ok 4\n";} else {print "ok 4\n";}
13
14 if ((system "/bin/sh -c 'exit 1'") != 256) { print "not "; }
15 print "ok 5\n";
16
17 if ((system "lskdfj") == 255 << 8) {print "ok 6\n";} else {print "not ok 6\n";}
18
19 unless (exec "lskdjfalksdjfdjfkls") {print "ok 7\n";} else {print "not ok 7\n";}
20
21 exec "echo","ok","8";