a "replacement" for awk and sed
[perl.git] / t / op.cond
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";