https://perl5.git.perl.org / perl5.git / blame_incremental
| Commit | Line | Data |
|---|---|---|
| 1 | #!./perl | |
| 2 | ||
| 3 | # $RCSfile: int.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:00 $ | |
| 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";} |