summaryrefslogtreecommitdiffstats
path: root/tests
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 /tests
parent3d577ed4a3ab384c78a4b333c7a21d085acd255f (diff)
downloadtcl-486fa2785b34d17f1bf84bbfe24d8a6afd9586ed.zip
tcl-486fa2785b34d17f1bf84bbfe24d8a6afd9586ed.tar.gz
tcl-486fa2785b34d17f1bf84bbfe24d8a6afd9586ed.tar.bz2
Stop failure of expr-23.4 on 64bit architectures. [Bug 808244]
Diffstat (limited to 'tests')
-rw-r--r--tests/expr.test4
1 files changed, 2 insertions, 2 deletions
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