diff options
| author | dgp <dgp@users.sourceforge.net> | 2005-03-18 16:33:32 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2005-03-18 16:33:32 (GMT) |
| commit | 73e8ff385c97696916685adff1a57ab042f9d604 (patch) | |
| tree | 7baf6484b4775badabfc961d085c528deeecf945 /tests/basic.test | |
| parent | 8b96038b4e264cb2835a3c0f41a65009b32f3bc0 (diff) | |
| download | tcl-73e8ff385c97696916685adff1a57ab042f9d604.zip tcl-73e8ff385c97696916685adff1a57ab042f9d604.tar.gz tcl-73e8ff385c97696916685adff1a57ab042f9d604.tar.bz2 | |
* generic/tclBasic.c (Tcl_EvalEx,TclEvalTokensStandard):
* generic/tclCmdMZ.c (Tcl_SubstObj):
* tests/basic.test (basic-46.4): Restored recursion limit
* tests/parse.test (parse-19.*): testing in nested command
substitutions within direct script evaluation (Tcl_EvalEx)
that got lost in the parser reforms of Tcl 8.1. Added tests for
correct behavior. [Bug 1115904]
Diffstat (limited to 'tests/basic.test')
| -rw-r--r-- | tests/basic.test | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/tests/basic.test b/tests/basic.test index 2c8a6a7..0a995ba 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.25.2.6 2005/02/10 18:58:36 msofer Exp $ +# RCS: @(#) $Id: basic.test,v 1.25.2.7 2005/03/18 16:33:43 dgp Exp $ # package require tcltest 2 @@ -652,9 +652,7 @@ test basic-46.4 {Tcl_AllowExceptions: exception return not allowed} -setup { } -cleanup { removeFile BREAKtest } -returnCodes error -match glob -result {invoked "break" outside of a loop - while executing -"break" - invoked from within + while executing* "foo \[set a 1] \[break]" (file "*BREAKtest" line 2)} |