diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2003-02-16 01:36:32 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2003-02-16 01:36:32 (GMT) |
| commit | 23889e745ac1e3ba5e76c3ffb94736a5c475de7e (patch) | |
| tree | b9cac46b6b2fb5373a629e8d3758b7742b6a651c /tests/parseExpr.test | |
| parent | af570109241e78092cb2e80486e479b3a71524ef (diff) | |
| download | tcl-23889e745ac1e3ba5e76c3ffb94736a5c475de7e.zip tcl-23889e745ac1e3ba5e76c3ffb94736a5c475de7e.tar.gz tcl-23889e745ac1e3ba5e76c3ffb94736a5c475de7e.tar.bz2 | |
Don Porter's fix for bad parsing of nested scripts [Bug 681841].
Diffstat (limited to 'tests/parseExpr.test')
| -rw-r--r-- | tests/parseExpr.test | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/parseExpr.test b/tests/parseExpr.test index ad5bd17..7b87b85 100644 --- a/tests/parseExpr.test +++ b/tests/parseExpr.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: parseExpr.test,v 1.9 2002/12/11 20:30:16 dgp Exp $ +# RCS: @(#) $Id: parseExpr.test,v 1.10 2003/02/16 01:36:32 msofer Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -491,6 +491,10 @@ test parseExpr-15.34 {ParsePrimaryExpr procedure, single equal-specific message} test parseExpr-15.35 {ParsePrimaryExpr procedure, error in parenthesized subexpr} { list [catch {testexprparser {(: 123 : 456)} -1} msg] $msg } {1 {syntax error in expression "(: 123 : 456)": unexpected ternary 'else' separator}} +test parseExpr-15.36 {ParsePrimaryExpr procedure, missing close-bracket} { + # Test for Bug 681841 + list [catch {testexprparser {[set a [format bc]} -1} msg] $msg +} {1 {missing close-bracket}} test parseExpr-16.1 {GetLexeme procedure, whitespace before lexeme} { testexprparser { 123} -1 |