diff options
author | dgp <dgp@users.sourceforge.net> | 2018-11-09 16:03:22 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2018-11-09 16:03:22 (GMT) |
commit | 5deb25bc9b71c984e1e0577b53b7664c1fab0315 (patch) | |
tree | a06be82e0f814165c21ee6cae49f3d72ed9855ef /tests/list.test | |
parent | 008a36f3e4b5daef7eadc65c63a98e40d62bd1e2 (diff) | |
parent | 0f4e877214d36d6ecbf31ae9fb60ea5ebb3dac0a (diff) | |
download | tcl-5deb25bc9b71c984e1e0577b53b7664c1fab0315.zip tcl-5deb25bc9b71c984e1e0577b53b7664c1fab0315.tar.gz tcl-5deb25bc9b71c984e1e0577b53b7664c1fab0315.tar.bz2 |
merge 8.5
Diffstat (limited to 'tests/list.test')
-rw-r--r-- | tests/list.test | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/tests/list.test b/tests/list.test index dff5d50..2686bd7 100644 --- a/tests/list.test +++ b/tests/list.test @@ -128,6 +128,24 @@ test list-3.1 {SetListFromAny and lrange/concat results} { test list-4.1 {Bug 3173086} { string is list "{[list \\\\\}]}" } 1 +test list-4.2 {Bug 35a8f1c04a, check correct str-rep} { + set result {} + foreach i { + {#"} {#"""} {#"""""""""""""""} + "#\"{" "#\"\"\"{" "#\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\{" + "#\"}" "#\"\"\"}" "#\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\}" + } { + set list [list $i] + set list [string trim " $list "] + if {[llength $list] > 1 || $i ne [lindex $list 0]} { + lappend result "wrong string-representation of list by '$i', length: [llength $list], list: '$list'" + } + } + set result [join $result \n] +} {} +test list-4.3 {Bug 35a8f1c04a, check correct string length} { + string length [list #""] +} 5 # cleanup ::tcltest::cleanupTests |