diff options
| author | dgp <dgp@users.sourceforge.net> | 2006-08-31 20:09:19 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2006-08-31 20:09:19 (GMT) |
| commit | cb91df64f573a61f3fde281f8b65cccff6b51cff (patch) | |
| tree | caa194d5e30dc90cae1f3b67c8f2e5461e5c2c28 /tests | |
| parent | 35eb4b3de55b09b9263b8bce50ab1ff2401f3d0f (diff) | |
| download | tcl-cb91df64f573a61f3fde281f8b65cccff6b51cff.zip tcl-cb91df64f573a61f3fde281f8b65cccff6b51cff.tar.gz tcl-cb91df64f573a61f3fde281f8b65cccff6b51cff.tar.bz2 | |
* tests/expr-old.test: The remaining failing tests reported in
* tests/expr.test: [Bug 1381715] are all new in Tcl 8.5, so
there's really no issue of compatibility with Tcl 8.4 result to
deal with. Fixed by updating tests to expect 8.5 results.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/expr-old.test | 4 | ||||
| -rw-r--r-- | tests/expr.test | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/tests/expr-old.test b/tests/expr-old.test index e842f22..598697c 100644 --- a/tests/expr-old.test +++ b/tests/expr-old.test @@ -13,7 +13,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-old.test,v 1.37 2006/08/22 04:03:23 dgp Exp $ +# RCS: @(#) $Id: expr-old.test,v 1.38 2006/08/31 20:09:19 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2.1 @@ -1120,7 +1120,7 @@ test expr-old-37.24 {Tcl_ExprDouble handles overflows that look like int} \ test expr-old-37.25 {Tcl_ExprDouble and NaN} \ {ieeeFloatingPoint testexprdouble} { list [catch {testexprdouble 0.0/0.0} result] $result - } {1 {floating point value is Not a Number}} + } {1 {domain error: argument not in valid range}} test expr-old-38.1 {Verify Tcl_ExprString's basic operation} -constraints {testexprstring} -body { list [testexprstring "1+4"] [testexprstring "2*3+4.2"] \ diff --git a/tests/expr.test b/tests/expr.test index 93efbde..23f46bd 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.58 2006/08/22 04:03:24 dgp Exp $ +# RCS: @(#) $Id: expr.test,v 1.59 2006/08/31 20:09:20 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2.1 @@ -6304,7 +6304,7 @@ test expr-39.24 {Tcl_ExprDoubleObj handles overflows that look like int} \ test expr-39.25 {Tcl_ExprDoubleObj and NaN} \ {testexprdoubleobj ieeeFloatingPoint} { list [catch {testexprdoubleobj 0.0/0.0} result] $result - } {1 {floating point value is Not a Number}} + } {1 {domain error: argument not in valid range}} test expr-40.1 {large octal shift} { expr 0100000000000000000000000000000000 |