diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/parse.test | 24 |
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 |