diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-03-15 14:06:52 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-03-15 14:06:52 (GMT) |
| commit | 47152d94c197241698dc4fd03322b6694b25d2d4 (patch) | |
| tree | 2ac7affdbbf5610b73d47d78435e28789065a723 /tests/join.test | |
| parent | 1dd89810eb1cba2b78eeeb42df4c3e966a55102e (diff) | |
| parent | aa199edba612a516e6309290fb6dc4442a49a5ee (diff) | |
| download | tcl-47152d94c197241698dc4fd03322b6694b25d2d4.zip tcl-47152d94c197241698dc4fd03322b6694b25d2d4.tar.gz tcl-47152d94c197241698dc4fd03322b6694b25d2d4.tar.bz2 | |
merge 8.7
Diffstat (limited to 'tests/join.test')
| -rw-r--r-- | tests/join.test | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/join.test b/tests/join.test index 4abe233..4aeb093 100644 --- a/tests/join.test +++ b/tests/join.test @@ -45,6 +45,11 @@ test join-3.1 {joinString is binary ok} { test join-3.2 {join is binary ok} { string length [join "a\0b a\0b a\0b"] } 11 + +test join-4.1 {shimmer segfault prevention} { + set l {0 0} + join $l $l +} {00 00} # cleanup ::tcltest::cleanupTests |