diff options
Diffstat (limited to 'gnu/usr.bin/perl/t/op/arith.t')
| -rw-r--r-- | gnu/usr.bin/perl/t/op/arith.t | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/t/op/arith.t b/gnu/usr.bin/perl/t/op/arith.t index fe2f0f458b3..5b04f9365fd 100644 --- a/gnu/usr.bin/perl/t/op/arith.t +++ b/gnu/usr.bin/perl/t/op/arith.t @@ -1,6 +1,6 @@ #!./perl -print "1..8\n"; +print "1..12\n"; sub try ($$) { print +($_[1] ? "ok" : "not ok"), " $_[0]\n"; @@ -21,3 +21,10 @@ try 5, abs( 13e21 % 4e21 - 1e21) < $limit; try 6, abs(-13e21 % 4e21 - 3e21) < $limit; try 7, abs( 13e21 % -4e21 - -3e21) < $limit; try 8, abs(-13e21 % -4e21 - -1e21) < $limit; + +# UVs should behave properly + +try 9, 4063328477 % 65535 == 27407; +try 10, 4063328477 % 4063328476 == 1; +try 11, 4063328477 % 2031664238 == 1; +try 12, 2031664238 % 4063328477 == 2031664238; |