diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-07-18 15:05:18 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-07-18 15:05:18 (GMT) |
| commit | 517197f8571ca5ff1c51b2cadc771505922d9137 (patch) | |
| tree | 97de78e38c2f1e7cd5411638a63eaca8ef6f2ab0 /tests | |
| parent | a398b126a43e46efa6d6044b0bcf57a4b9385c4e (diff) | |
| download | tcl-517197f8571ca5ff1c51b2cadc771505922d9137.zip tcl-517197f8571ca5ff1c51b2cadc771505922d9137.tar.gz tcl-517197f8571ca5ff1c51b2cadc771505922d9137.tar.bz2 | |
[Bug 1c17fbba5d] Fix -errorinfo from syntax errors so that the error is
not obscured. Instead highlight it by making it the last character quoted.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/assemble.test | 3 | ||||
| -rw-r--r-- | tests/misc.test | 7 |
2 files changed, 2 insertions, 8 deletions
diff --git a/tests/assemble.test b/tests/assemble.test index 7d4e5d1..b0487e6 100644 --- a/tests/assemble.test +++ b/tests/assemble.test @@ -175,8 +175,7 @@ test assemble-4.1 {syntax error} { -match glob -result {1 {extra characters after close-brace} {extra characters after close-brace while executing -"{}extra - " +"{}e" ("assemble" body, line 2)*}} } test assemble-4.2 {null command} { diff --git a/tests/misc.test b/tests/misc.test index 6ddc718..d4ece74 100644 --- a/tests/misc.test +++ b/tests/misc.test @@ -59,12 +59,7 @@ test misc-1.2 {error in variable ref. in command in array reference} { missing close-brace for variable name missing close-brace for variable name while executing -"set tst $a([winfo name $\{zz) - # this is a bogus comment - # this is a bogus comment - # this is a bogus comment - # this is a bogus comment - # this is a ..." +"set tst $a([winfo name $\{" (procedure "tstProc" line 4) invoked from within "tstProc"}] |