diff options
| author | dgp <dgp@users.sourceforge.net> | 2006-08-22 18:10:43 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2006-08-22 18:10:43 (GMT) |
| commit | c1468b897df2e62147dc89c8dbdab4fc7c415fe0 (patch) | |
| tree | f5c76b67118a85fd53780000f339a0e7b3b084be /tests/for.test | |
| parent | a9e01d92cd36a6bd0e284252cb645ebe343c7c36 (diff) | |
| download | tcl-c1468b897df2e62147dc89c8dbdab4fc7c415fe0.zip tcl-c1468b897df2e62147dc89c8dbdab4fc7c415fe0.tar.gz tcl-c1468b897df2e62147dc89c8dbdab4fc7c415fe0.tar.bz2 | |
More test flexibility
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 |