diff options
| author | dgp <dgp@users.sourceforge.net> | 2007-05-30 18:12:57 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2007-05-30 18:12:57 (GMT) |
| commit | c3a6364780e6096f9665ff4b903d52e88abec903 (patch) | |
| tree | 3556fc80b8c80f1b647b426b8d1dfdf33d4e09e2 /tests | |
| parent | dd4bd718f68c159cfd56b0a21fb425a8fdf4941a (diff) | |
| download | tcl-c3a6364780e6096f9665ff4b903d52e88abec903.zip tcl-c3a6364780e6096f9665ff4b903d52e88abec903.tar.gz tcl-c3a6364780e6096f9665ff4b903d52e88abec903.tar.bz2 | |
* generic/tclBasic.c: Removed code that dealt with
* generic/tclCompile.c: TCL_TOKEN_EXPAND_WORD tokens representing
* generic/tclCompile.h: expanded literal words. These sections were
mostly in place to enable [info frame] to discover line information
in expanded literals. Since the parser now generates a token for
each post-expansion word referring to the right location in the
original script string, [info frame] gets all the data it needs.
* generic/tclInt.h: Revised the parser so that it never produces
* generic/tclParse.c: TCL_TOKEN_EXPAND_WORD tokens when parsing an
* tests/parse.test: expanded literal word; that is, something like
{*}{x y z}. Instead, generate the series of TCL_TOKEN_SIMPLE_WORD
tokens to represent the words that expansion of the literal string
produces. [RFE 1725186]
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/parse.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/parse.test b/tests/parse.test index a89e991..07c9f47 100644 --- a/tests/parse.test +++ b/tests/parse.test @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: parse.test,v 1.27 2007/03/15 22:05:21 mdejong Exp $ +# RCS: @(#) $Id: parse.test,v 1.28 2007/05/30 18:12:59 dgp Exp $ if {[catch {package require tcltest 2.0.2}]} { puts stderr "Skipping tests in [info script]. tcltest 2.0.2 required." @@ -217,7 +217,7 @@ test parse-5.23 {Tcl_ParseCommand: {*} parsing} testparser { } {- {{*} } 1 simple {{*}} 1 text * 0 {}} test parse-5.24 {Tcl_ParseCommand: {*} parsing} testparser { testparser {{*}x} 0 -} {- {{*}x} 1 expand {{*}x} 1 text x 0 {}} +} {- {{*}x} 1 simple x 1 text x 0 {}} test parse-5.25 {Tcl_ParseCommand: {*} parsing} testparser { testparser {{*} } 0 |