summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2003-09-19 23:05:39 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2003-09-19 23:05:39 (GMT)
commit486fa2785b34d17f1bf84bbfe24d8a6afd9586ed (patch)
tree7e4c79ae20bae4f92f98110fa032f9bbe57b3d68
parent3d577ed4a3ab384c78a4b333c7a21d085acd255f (diff)
downloadtcl-486fa2785b34d17f1bf84bbfe24d8a6afd9586ed.zip
tcl-486fa2785b34d17f1bf84bbfe24d8a6afd9586ed.tar.gz
tcl-486fa2785b34d17f1bf84bbfe24d8a6afd9586ed.tar.bz2
Stop failure of expr-23.4 on 64bit architectures. [Bug 808244]
-rw-r--r--ChangeLog6
-rw-r--r--tests/expr.test4
2 files changed, 8 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index 327c36e..3b65077 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2003-09-20 Donal K. Fellows <fellowsd@cs.man.ac.uk>
+
+ * tests/expr.test (expr-23.4): Prevented accidental wrapping round
+ of exponential operation; it isn't portable, and not what I
+ intended to test either. [Bug 808244]
+
2003-09-19 Miguel Sofer <msofer@users.sf.net>
* generic/tclExecute.c: adding (DE)CACHE_STACK_INFO() pairs to
diff --git a/tests/expr.test b/tests/expr.test
index e1bb6cc..0b2543e 100644
--- a/tests/expr.test
+++ b/tests/expr.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: expr.test,v 1.19 2003/09/12 23:55:34 dkf Exp $
+# RCS: @(#) $Id: expr.test,v 1.20 2003/09/19 23:05:40 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -810,7 +810,7 @@ test expr-22.8 {non-numeric floats} nonPortable {
test expr-23.1 {CompileExponentialExpr: just exponential expr} {expr 4**2} 16
test expr-23.2 {CompileExponentialExpr: just exponential expr} {expr 0xff**2} 65025
test expr-23.3 {CompileExponentialExpr: just exponential expr} {expr -1**2} 1
-test expr-23.4 {CompileExponentialExpr: just exponential expr} {expr 7891**0123} 75407563
+test expr-23.4 {CompileExponentialExpr: just exponential expr} {expr 18**07} 612220032
test expr-23.5 {CompileExponentialExpr: error in exponential expr} {
catch {expr x**3} msg
set msg