Change 11101 by jhi@alpha on 2001/07/02 18:14:51
Subject: [PATCH] Re: op/numconvert.t failures
From: Nicholas Clark <[EMAIL PROTECTED]>
Date: Mon, 2 Jul 2001 20:10:48 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/t/op/numconvert.t#11 edit
Differences ...
==== //depot/perl/t/op/numconvert.t#11 (xtext) ====
Index: perl/t/op/numconvert.t
--- perl/t/op/numconvert.t.~1~ Mon Jul 2 12:15:05 2001
+++ perl/t/op/numconvert.t Mon Jul 2 12:15:05 2001
@@ -224,9 +224,15 @@
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++,
End of Patch.
