diff options
| author | dgp <dgp@users.sourceforge.net> | 2009-09-17 17:58:09 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2009-09-17 17:58:09 (GMT) |
| commit | 76a7b7436a2b6d136bd796fbc2dd53cd3f4385dc (patch) | |
| tree | c8705818cc28b4867edbb3dd5e99ea4b1f2ae264 /tests/basic.test | |
| parent | cfef008bffcfc7b272e5fd62ff6f62f333e0c4d3 (diff) | |
| download | tcl-76a7b7436a2b6d136bd796fbc2dd53cd3f4385dc.zip tcl-76a7b7436a2b6d136bd796fbc2dd53cd3f4385dc.tar.gz tcl-76a7b7436a2b6d136bd796fbc2dd53cd3f4385dc.tar.bz2 | |
* generic/tclCompile.c: Re-implement Tcl_SubstObj() as a simple
* generic/tclParse.c: wrapper around TclNRSubstObj(). This has
* tests/basic.test: the effect of caching compiled bytecode in
* tests/parse.test: the value to be substituted. Note that
Tcl_SubstObj() now exists only for extensions. Tcl itself no longer
makes any use of it. Note also that TclSubstTokens() is now reachable
only by Tcl_EvalEx() and Tcl_ParseVar() so tests aiming to test its
functioning needed adjustment to still have the intended effect.
Diffstat (limited to 'tests/basic.test')
| -rw-r--r-- | tests/basic.test | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/tests/basic.test b/tests/basic.test index 881b329..c07d805 100644 --- a/tests/basic.test +++ b/tests/basic.test @@ -15,7 +15,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: basic.test,v 1.45 2009/09/04 17:33:12 dgp Exp $ +# RCS: @(#) $Id: basic.test,v 1.46 2009/09/17 17:58:10 dgp Exp $ # package require tcltest 2 @@ -631,8 +631,10 @@ test basic-46.5 {Tcl_AllowExceptions: exception return not allowed} -setup { "return -code return" (file "*BREAKtest" line 2)} -test basic-47.1 {Tcl_EvalEx: check for missing close-bracket} -body { - set subst subst; $subst {a[set b [format cd]} +test basic-47.1 {Tcl_EvalEx: check for missing close-bracket} -constraints { + testevalex +} -body { + testevalex {a[set b [format cd]} } -returnCodes error -result {missing close-bracket} # Some lists for expansion tests to work with |