From 505ce9d7514f15e77ed12621ae3c0d35a449d6b3 Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Mon, 16 May 2011 12:21:01 +1000 Subject: Fix a parsing bug with quoted strings inside [...] Signed-off-by: Steve Bennett --- tests/parse.test | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 tests/parse.test (limited to 'tests') 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 -- cgit v1.1