Commit | Line | Data |
---|---|---|
54310121 | 1 | #!./perl |
2 | ||
787eafbd | 3 | print "1..8\n"; |
54310121 | 4 | |
5 | sub try ($$) { | |
6 | print +($_[1] ? "ok" : "not ok"), " $_[0]\n"; | |
7 | } | |
8 | ||
9 | try 1, 13 % 4 == 1; | |
10 | try 2, -13 % 4 == 3; | |
11 | try 3, 13 % -4 == -3; | |
12 | try 4, -13 % -4 == -1; | |
787eafbd | 13 | try 5, abs( 13e21 % 4e21 - 1e21) < 1e6; |
14 | try 6, abs(-13e21 % 4e21 - 3e21) < 1e6; | |
15 | try 7, abs( 13e21 % -4e21 - -3e21) < 1e6; | |
16 | try 8, abs(-13e21 % -4e21 - -1e21) < 1e6; |