diff options
Diffstat (limited to 'tests/for.test')
| -rw-r--r-- | tests/for.test | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/tests/for.test b/tests/for.test index a3a2d7d..0266de4 100644 --- a/tests/for.test +++ b/tests/for.test @@ -9,7 +9,7 @@ # 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.14 2006/08/22 04:03:24 dgp Exp $ +# RCS: @(#) $Id: for.test,v 1.15 2006/08/22 18:10:43 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -663,12 +663,7 @@ test for-6.7 {Tcl_ForObjCmd: error in test expression} -body { set z for 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}"} +} -match glob -result {*"$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 |