1#!./perl
2
3# $RCSfile: cond.t,v $$Revision: 1.7 $$Date: 2003/12/03 03:02:47 $
4
5# make sure conditional operators work
6
7print "1..4\n";
8
9$x = '0';
10
11$x eq $x && (print "ok 1\n");
12$x ne $x && (print "not ok 1\n");
13$x eq $x || (print "not ok 2\n");
14$x ne $x || (print "ok 2\n");
15
16$x == $x && (print "ok 3\n");
17$x != $x && (print "not ok 3\n");
18$x == $x || (print "not ok 4\n");
19$x != $x || (print "ok 4\n");
20