summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog7
-rw-r--r--tests/expr-old.test4
-rw-r--r--tests/expr.test4
3 files changed, 11 insertions, 4 deletions
diff --git a/ChangeLog b/ChangeLog
index 84e3ee3..732fe1c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2006-08-31 Don Porter <dgp@users.sourceforge.net>
+
+ * 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.
+
2006-08-29 Don Porter <dgp@users.sourceforge.net>
* generic/tclParseExpr.c: Dropped the old expr parser.
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