diff options
| author | hobbs <hobbs@noemail.net> | 1999-12-12 02:27:02 (GMT) |
|---|---|---|
| committer | hobbs <hobbs@noemail.net> | 1999-12-12 02:27:02 (GMT) |
| commit | 866537d969ede32c06e3cb1f072c35157c3e969a (patch) | |
| tree | 078213736e63a3187028984e721a7b538db27df4 /tests/parseOld.test | |
| parent | ded8a2cf0836a3f855ec0cd31696fcd17035d0cf (diff) | |
| download | tcl-866537d969ede32c06e3cb1f072c35157c3e969a.zip tcl-866537d969ede32c06e3cb1f072c35157c3e969a.tar.gz tcl-866537d969ede32c06e3cb1f072c35157c3e969a.tar.bz2 | |
* tests/info.test:
* tests/parseOld.test:
* generic/tclCmdAH.c:
* generic/tclProc.c: changed Tcl_UplevelObjCmd (uplevel) and
Tcl_EvalObjCmd (eval) to use TCL_EVAL_DIRECT in the single arg
case as well, to take advantage of potential pure list input
optimization. This means that it won't get byte compiled though,
which should be acceptable.
FossilOrigin-Name: 39d765c05362d29d47095c3724de54652bb7a9ce
Diffstat (limited to 'tests/parseOld.test')
| -rw-r--r-- | tests/parseOld.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/parseOld.test b/tests/parseOld.test index a692bbb..2f6a4b2 100644 --- a/tests/parseOld.test +++ b/tests/parseOld.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: parseOld.test,v 1.7 1999/08/23 17:54:59 jenn Exp $ +# RCS: @(#) $Id: parseOld.test,v 1.8 1999/12/12 02:27:04 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -348,7 +348,7 @@ test parseOld-10.13 {syntax errors} { test parseOld-10.14 {syntax errors} { list [catch {eval \$x[format "%01000d" 0](} msg] $msg $errorInfo } {1 {missing )} {missing ) - while compiling + while executing "$x0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000..." ("eval" body line 1) invoked from within |