diff options
| author | Neil <nyamatongwe@gmail.com> | 2019-01-29 22:24:56 +1100 |
|---|---|---|
| committer | Neil <nyamatongwe@gmail.com> | 2019-01-29 22:24:56 +1100 |
| commit | 850cfb235e8e92c5b180c94f81d599f88e8cef01 (patch) | |
| tree | ed8b4168babc9123bd8ed5514c76fb38848ec225 /test/examples | |
| parent | 06a3fcba8e3282aa52f90cbf6f2d1aad947a600c (diff) | |
| download | scintilla-mirror-850cfb235e8e92c5b180c94f81d599f88e8cef01.tar.gz | |
Bug [#1947]. Fix recognizing '"' after "," inside a bracketed substitution.
Diffstat (limited to 'test/examples')
| -rw-r--r-- | test/examples/x.tcl | 5 | ||||
| -rw-r--r-- | test/examples/x.tcl.styled | 5 |
2 files changed, 10 insertions, 0 deletions
diff --git a/test/examples/x.tcl b/test/examples/x.tcl index 7553aca2d..6a4b13dbe 100644 --- a/test/examples/x.tcl +++ b/test/examples/x.tcl @@ -6,3 +6,8 @@ proc Echo_Server {port} { set s [socket -server EchoAccept $port] vwait forever } + +# Bug #1947 + +$s($i,"n") +set n $showArray($i,"neighbor") diff --git a/test/examples/x.tcl.styled b/test/examples/x.tcl.styled index b9d419b41..fecdc9dea 100644 --- a/test/examples/x.tcl.styled +++ b/test/examples/x.tcl.styled @@ -6,3 +6,8 @@ {0} {12}set{0} {7}s{0} {6}[{12}socket{0} {10}-server{0} {7}EchoAccept{0} {8}$port{6}] {0} {12}vwait{0} {7}forever{0} {6}} +{0} +{2}# Bug #1947 +{0} +{8}$s{6}({8}$i{6},{5}"n"{6}) +{12}set{0} {7}n{0} {8}$showArray{6}({8}$i{6},{5}"neighbor"{6}) |