* tests/compExpr-old.test: Updated tests with changed behavior

        due to addition of bignums.

2 files changed, 8 insertions, 5 deletions

diff --git a/ChangeLog b/ChangeLog
index 7586d50..8d565e5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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 {