* tests/compExpr-old.test: Update existing tests to not fail

        * tests/compExpr.test:          with the new expr parser.
        * tests/compile.test:
        * tests/expr-old.test:
        * tests/expr.test:
        * tests/for.test:
        * tests/if.test:
        * tests/parseExpr.test:
        * tests/while.test:

1 files changed, 10 insertions, 10 deletions

diff --git a/tests/for.test b/tests/for.test
index 7051bac..a3a2d7d 100644
--- a/tests/for.test
+++ b/tests/for.test
@@ -9,17 +9,13 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: for.test,v 1.13 2006/08/02 20:03:37 das Exp $
+# RCS: @(#) $Id: for.test,v 1.14 2006/08/22 04:03:24 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
     namespace import -force ::tcltest::*
 }
 
-# Constraint set on tests that depend on the exact format of the error messages
-# of the pre-2006/07/05 expression parser (-DOLD_EXPR_PARSER=1)
-testConstraint oldExprParser [expr {![testConstraint newExprParser]}]
-
 # Basic "for" operation.
 
 test for-1.1 {TclCompileForCmd: missing initial command} {
@@ -663,12 +659,16 @@ test for-6.6 {Tcl_ForObjCmd: error in initial command} -body {
     ("for" initial command)
     invoked from within
 "$z {set} {$i < 5} {incr i} {body}"}}
-test for-6.7 {Tcl_ForObjCmd: error in test expression} -constraints {oldExprParser} -match glob -body {
+test for-6.7 {Tcl_ForObjCmd: error in test expression} -body {
     set z for
-    list [catch {$z {set i 0} {i < 5} {incr i} {body}} msg] $msg $errorInfo
-} -result {1 {syntax error in expression "i < 5": * preceding $*} {syntax error in expression "i < 5": * preceding $*
-    while executing
-"$z {set i 0} {i < 5} {incr i} {body}"}}
+    catch {$z {set i 0} {i < 5} {incr i} {body}}
+    set errorInfo
+} -result {invalid bareword "i"
+in expression "i < 5";
+should be "$i" or "{i}" or "i(...)" or ...
+    (parsing expression "i < 5")
+    invoked from within
+"$z {set i 0} {i < 5} {incr i} {body}"}
 test for-6.8 {Tcl_ForObjCmd: test expression is enclosed in quotes} {
     set z for
     set i 0