#!./perl # $Header: if.t,v 4.0 91/03/20 01:49:03 lwall Locked $ print "1..2\n"; # first test to see if we can run the tests. $x = 'test'; if ($x eq $x) { print "ok 1\n"; } else { print "not ok 1\n";} if ($x ne $x) { print "not ok 2\n"; } else { print "ok 2\n";}