xref: /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/base/cond.t (revision 0:68f95e015346) 
1#!./perl
2
3# $RCSfile: cond.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:02 $
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