diff options
Diffstat (limited to 'tests/compExpr-old.test')
| -rw-r--r-- | tests/compExpr-old.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/compExpr-old.test b/tests/compExpr-old.test index db8601d..c1170c5 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.14 2005/08/10 16:28:02 kennykb Exp $ +# RCS: @(#) $Id: compExpr-old.test,v 1.15 2005/10/21 20:44:17 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -361,11 +361,11 @@ 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 { +test compExpr-old-9.5a {CompileRelationalExpr: shift expr producing LONG_MIN} {longIs64bit knownBug} { expr {1<<63} } -9223372036854775808 -test compExpr-old-9.5b {CompileRelationalExpr: shift expr producing LONG_MIN} longIs32bit { +test compExpr-old-9.5b {CompileRelationalExpr: shift expr producing LONG_MIN} {longIs32bit knownBug} { expr {1<<31} } -2147483648 |