5 unshift @INC, '../lib';
10 # compile time evaluation
12 if (int(1.234) == 1) {print "ok 1\n";} else {print "not ok 1\n";}
14 if (int(-1.234) == -1) {print "ok 2\n";} else {print "not ok 2\n";}
19 if (int($x) == 1) {print "ok 3\n";} else {print "not ok 3\n";}
20 if (int(-$x) == -1) {print "ok 4\n";} else {print "not ok 4\n";}
22 $x = length("abc") % -10;
23 print $x == -7 ? "ok 5\n" : "# expected -7, got $x\nnot ok 5\n";
27 $x = length("abc") % -10;
29 print $x+$y == 3 && abs($x) < 10 ? "ok 6\n" : "not ok 6\n";