Commit | Line | Data |
---|---|---|
8d063cd8 | 1 | #!./perl |
2 | ||
79072805 | 3 | # $RCSfile: int.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:00 $ |
8d063cd8 | 4 | |
5 | print "1..4\n"; | |
6 | ||
7 | # compile time evaluation | |
8 | ||
9 | if (int(1.234) == 1) {print "ok 1\n";} else {print "not ok 1\n";} | |
10 | ||
11 | if (int(-1.234) == -1) {print "ok 2\n";} else {print "not ok 2\n";} | |
12 | ||
13 | # run time evaluation | |
14 | ||
15 | $x = 1.234; | |
16 | if (int($x) == 1) {print "ok 3\n";} else {print "not ok 3\n";} | |
17 | if (int(-$x) == -1) {print "ok 4\n";} else {print "not ok 4\n";} |