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 | 81a1a91361cc615d3e9bf5b9016bd12cd258aa8d (patch) | |
tree | 97de78e38c2f1e7cd5411638a63eaca8ef6f2ab0 /tests | |
parent | 774c4023655381f0f5d722f19ae8bed785ebff58 (diff) | |
download | tcl-81a1a91361cc615d3e9bf5b9016bd12cd258aa8d.zip tcl-81a1a91361cc615d3e9bf5b9016bd12cd258aa8d.tar.gz tcl-81a1a91361cc615d3e9bf5b9016bd12cd258aa8d.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"}] |