diff options
| author | ferrieux <ferrieux@users.sourceforge.net> | 2008-11-17 22:37:36 (GMT) |
|---|---|---|
| committer | ferrieux <ferrieux@users.sourceforge.net> | 2008-11-17 22:37:36 (GMT) |
| commit | 8d22f1cfcc45e63e40c4af4d1489164f50826274 (patch) | |
| tree | 0341a50229fa7bcb07c344f5c6748f7c5c844a8d /tests/compile.test | |
| parent | dee5b7a791b4b64cdfe7ae6c9981aff8d85848d5 (diff) | |
| download | tcl-8d22f1cfcc45e63e40c4af4d1489164f50826274.zip tcl-8d22f1cfcc45e63e40c4af4d1489164f50826274.tar.gz tcl-8d22f1cfcc45e63e40c4af4d1489164f50826274.tar.bz2 | |
Fix [Bug 2251175]: missing backslash generic/tclCompCmds.c substitution on expanded literals.
Diffstat (limited to 'tests/compile.test')
| -rw-r--r-- | tests/compile.test | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/tests/compile.test b/tests/compile.test index 7d282ae..557b3b5 100644 --- a/tests/compile.test +++ b/tests/compile.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: compile.test,v 1.49 2008/09/10 13:50:05 dkf Exp $ +# RCS: @(#) $Id: compile.test,v 1.50 2008/11/17 22:37:36 ferrieux Exp $ package require tcltest 2 namespace import -force ::tcltest::* @@ -568,6 +568,13 @@ test compile-16.24.$noComp { } -constraints $constraints -body { run "{*}\"\{foo bar\"" } -returnCodes error -result {unmatched open brace in list} +test compile-16.25.$noComp {TclCompileScript: word expansion, naked backslashes} $constraints { + run {list {*}{a \n b}} +} {a { +} b} +test compile-16.26.$noComp {TclCompileScript: word expansion, protected backslashes} $constraints { + run {list {*}{a {\n} b}} +} {a {\n} b} } ;# End of noComp loop # These tests are messy because it wrecks the interpreter it runs in! |