Fix a parsing bug with quoted strings inside [...]

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 24 insertions, 0 deletions

diff --git a/tests/parse.test b/tests/parse.test
new file mode 100644
index 0000000..b57fc97
--- /dev/null
+++ b/tests/parse.test
@@ -0,0 +1,24 @@
+source [file dirname [info script]]/testing.tcl
+
+test parse-1.1 "Quoted closing bracket" {
+	set x [string length "]"]
+} {1}
+
+test parse-1.2 "Quoted opening bracket" {
+	set x [string length "\["]
+} {1}
+
+test parse-1.3 "Quoted open brace" {
+	set x [string length "\{"]
+} {1}
+
+test parse-1.4 "Quoted open brace via var" {
+	set lb \{
+	set x [string length "$lb"]
+} {1}
+
+test parse-1.5 "Braced bracket" {
+	set x [string length {]}]
+} {1}
+
+testreport