diff options
| author | dgp <dgp@users.sourceforge.net> | 2005-11-08 22:09:56 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2005-11-08 22:09:56 (GMT) |
| commit | 0858363994f17b11098d2b124fdce2c97873dfe3 (patch) | |
| tree | 6ca86be350df2d14f7d11f4b8c1cb46ba3d42829 | |
| parent | d52223d5e4323db65d3b9753c8b3f3893a243e74 (diff) | |
| download | tcl-0858363994f17b11098d2b124fdce2c97873dfe3.zip tcl-0858363994f17b11098d2b124fdce2c97873dfe3.tar.gz tcl-0858363994f17b11098d2b124fdce2c97873dfe3.tar.bz2 | |
* tests/compExpr-old.test: Updated tests with changed behavior
due to addition of bignums.
| -rw-r--r-- | ChangeLog | 3 | ||||
| -rw-r--r-- | tests/compExpr-old.test | 10 |
2 files changed, 8 insertions, 5 deletions
@@ -1,5 +1,8 @@ 2005-11-08 Don Porter <dgp@users.sourceforge.net> + * tests/compExpr-old.test: Updated tests with changed behavior + due to addition of bignums. + * tests/expr.test: Portable tests expr-46.13-18 [Bug 1341368] * generic/tclPkg.c: Corrected inconsistencies in the value returned diff --git a/tests/compExpr-old.test b/tests/compExpr-old.test index c1170c5..b1e36bd 100644 --- a/tests/compExpr-old.test +++ b/tests/compExpr-old.test @@ -12,7 +12,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: compExpr-old.test,v 1.15 2005/10/21 20:44:17 dgp Exp $ +# RCS: @(#) $Id: compExpr-old.test,v 1.16 2005/11/08 22:09:56 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -361,12 +361,12 @@ test compExpr-old-9.4 {CompileRelationalExpr: just shift expr} {expr {1<<3}} 8 testConstraint longIs32bit [expr {int(0x80000000) < 0}] testConstraint longIs64bit [expr {int(0x8000000000000000) < 0}] -test compExpr-old-9.5a {CompileRelationalExpr: shift expr producing LONG_MIN} {longIs64bit knownBug} { - expr {1<<63} +test compExpr-old-9.5a {CompileRelationalExpr: shift expr producing LONG_MIN} longIs64bit { + expr {int(1<<63)} } -9223372036854775808 -test compExpr-old-9.5b {CompileRelationalExpr: shift expr producing LONG_MIN} {longIs32bit knownBug} { - expr {1<<31} +test compExpr-old-9.5b {CompileRelationalExpr: shift expr producing LONG_MIN} longIs32bit { + expr {int(1<<31)} } -2147483648 test compExpr-old-9.6 {CompileRelationalExpr: error in shift expr} -body { |