diff options
| author | Nicholas Clark <nick@ccl4.org> | 2001-07-02 21:10:48 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-02 18:14:51 +0000 |
| commit | 6ff5271635bf24fb4e3d46d5d9667b29c451dcbc (patch) | |
| tree | 699d7a31e8bc88b27ad5fa11a6a49fe847755bcf | |
| parent | f44d3bd28c43bca155afe88a6ad5b7d1d0671918 (diff) | |
| download | perl-6ff5271635bf24fb4e3d46d5d9667b29c451dcbc.tar.gz | |
Re: op/numconvert.t failures
Message-ID: <20010702201048.E59620@plum.flirble.org>
p4raw-id: //depot/perl@11101
| -rwxr-xr-x | t/op/numconvert.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/t/op/numconvert.t b/t/op/numconvert.t index d41594ea88..084092e534 100755 --- a/t/op/numconvert.t +++ b/t/op/numconvert.t @@ -224,9 +224,15 @@ for my $num_chain (1..$max_chain) { and $ans[0] == $ans[1] and $ans[0] <= ~0 # First must be in E notation (ie not just digits) and # second must still be an integer. + # eg 1.84467440737095516e+19 + # 1.84467440737095516e+19 for 64 bit mantissa is in the + # integer range, so 1.84467440737095516e+19 + 0 is treated + # as integer addition. [should it be?] + # and 18446744073709551600 + 0 is 18446744073709551600 + # Which isn't the string you first thought of. # I can't remember why there isn't symmetry in this # exception, ie why only the first ops are tested for 'N' - and $ans[0] !~ /^-?\d+$/ and $ans[0] !~ /^-?\d+$/) { + and $ans[0] != /^-?\d+$/ and $ans[1] !~ /^-?\d+$/) { print "# ok, numerically equal - notation changed due to adding zero\n"; } else { $nok++, |