diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1999-04-05 21:40:36 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-07 07:56:35 +0000 |
| commit | 787eafbd5502f34cb6300ce384514251ed273d04 (patch) | |
| tree | a5eb67b741e61d952c4b44e5472b94e4690f2649 /t/op/arith.t | |
| parent | 9fe6733ac5627eddc014ed5f2afb208fa4afd501 (diff) | |
| download | perl-787eafbd5502f34cb6300ce384514251ed273d04.tar.gz | |
Make % use fmod()
Message-ID: <19990406014035.A1238@monk.mps.ohio-state.edu>
p4raw-id: //depot/perl@3318
Diffstat (limited to 't/op/arith.t')
| -rwxr-xr-x | t/op/arith.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/t/op/arith.t b/t/op/arith.t index 43af807b8b..f1bd827f9b 100755 --- a/t/op/arith.t +++ b/t/op/arith.t @@ -1,6 +1,6 @@ #!./perl -print "1..4\n"; +print "1..8\n"; sub try ($$) { print +($_[1] ? "ok" : "not ok"), " $_[0]\n"; @@ -10,3 +10,7 @@ try 1, 13 % 4 == 1; try 2, -13 % 4 == 3; try 3, 13 % -4 == -3; try 4, -13 % -4 == -1; +try 5, abs( 13e21 % 4e21 - 1e21) < 1e6; +try 6, abs(-13e21 % 4e21 - 3e21) < 1e6; +try 7, abs( 13e21 % -4e21 - -3e21) < 1e6; +try 8, abs(-13e21 % -4e21 - -1e21) < 1e6; |