Commit | Line | Data |
8d063cd8 |
1 | #!./perl |
2 | |
3 | # $Header: op.cond,v 1.0 87/12/18 13:13:14 root Exp $ |
4 | |
5 | print "1..4\n"; |
6 | |
7 | print 1 ? "ok 1\n" : "not ok 1\n"; # compile time |
8 | print 0 ? "not ok 2\n" : "ok 2\n"; |
9 | |
10 | $x = 1; |
11 | print $x ? "ok 3\n" : "not ok 3\n"; # run time |
12 | print !$x ? "not ok 4\n" : "ok 4\n"; |