diff options
Diffstat (limited to 'tests/list.test')
| -rw-r--r-- | tests/list.test | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/list.test b/tests/list.test index 6ab9e8a..5a002a9 100644 --- a/tests/list.test +++ b/tests/list.test @@ -42,6 +42,8 @@ test list-1.21 {basic tests} {list a b c\\\nd} "a b c\\\\\\nd" test list-1.22 {basic tests} {list "{ab}\\"} \\{ab\\}\\\\ test list-1.23 {basic tests} {list \{} "\\{" test list-1.24 {basic tests} {list} {} +test list-1.25 {basic tests} {list # #} {{#} #} +test list-1.26 {basic tests} {list #\{ #\{} {\#\{ #\{} # For the next round of tests create a list and then pick it apart # with "index" to make sure that we get back exactly what went in. @@ -103,6 +105,10 @@ test list-3.1 {SetListFromAny and lrange/concat results} { slowsort {fred julie alex carol bill annie} } {alex annie bill carol fred julie} +test list-4.1 {Bug 3173086} { + string is list "{[list \\\\\}]}" +} 1 + # cleanup ::tcltest::cleanupTests return |