* 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.

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