diff options
Diffstat (limited to 't/op.exec')
| -rw-r--r-- | t/op.exec | 21 |
1 files changed, 15 insertions, 6 deletions
@@ -1,12 +1,21 @@ #!./perl -# $Header: op.exec,v 1.0 87/12/18 13:13:26 root Exp $ +# $Header: op.exec,v 2.0 88/06/05 00:13:46 root Exp $ $| = 1; # flush stdout -print "1..4\n"; +print "1..8\n"; -system "echo ok \\1"; # shell interpreted -system "echo ok 2"; # split and directly called -system "echo", "ok", "3"; # directly called +print "not ok 1\n" if system "echo ok \\1"; # 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 -exec "echo","ok","4"; +if (system "true") {print "not ok 4\n";} else {print "ok 4\n";} + +if ((system "/bin/sh -c 'exit 1'") != 256) { print "not "; } +print "ok 5\n"; + +if ((system "lskdfj") == 255 << 8) {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"; |