diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2005-05-10 18:33:37 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2005-05-10 18:33:37 (GMT) |
| commit | 76e3b5eed61a674bce7f9c1e18380842dcff3fbf (patch) | |
| tree | 2f108341f2c542f48532e6057d79bfa551a4245f /tests/for.test | |
| parent | 5b510b75ec4a1d6fb55691bcf55dbf4b0b936624 (diff) | |
| download | tcl-76e3b5eed61a674bce7f9c1e18380842dcff3fbf.zip tcl-76e3b5eed61a674bce7f9c1e18380842dcff3fbf.tar.gz tcl-76e3b5eed61a674bce7f9c1e18380842dcff3fbf.tar.bz2 | |
Merged kennykb-numerics-branch back to the head; TIPs 132 and 232
Diffstat (limited to 'tests/for.test')
| -rw-r--r-- | tests/for.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/for.test b/tests/for.test index c6d7395..0217f78 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.10 2004/09/26 16:36:06 msofer Exp $ +# RCS: @(#) $Id: for.test,v 1.11 2005/05/10 18:35:20 kennykb Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -659,10 +659,10 @@ 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} { +test for-6.7 {Tcl_ForObjCmd: error in test expression} -match glob -body { set z for list [catch {$z {set i 0} {i < 5} {incr i} {body}} msg] $msg $errorInfo -} {1 {syntax error in expression "i < 5": variable references require preceding $} {syntax error in expression "i < 5": variable references require preceding $ +} -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}"}} test for-6.8 {Tcl_ForObjCmd: test expression is enclosed in quotes} { |