diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-01-27 01:38:21 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-01-27 01:38:21 (GMT) |
| commit | a0c6bf8d922f9e7853a161b064103518dddd4612 (patch) | |
| tree | 9a89fa1f4cbb69bcb603bd7e22e6b0fc29ced6d6 | |
| parent | 19c01427417c7773a8809a3c9f0f681e751d583e (diff) | |
| download | tcl-a0c6bf8d922f9e7853a161b064103518dddd4612.zip tcl-a0c6bf8d922f9e7853a161b064103518dddd4612.tar.gz tcl-a0c6bf8d922f9e7853a161b064103518dddd4612.tar.bz2 | |
Regression test for shimmering danger in [join].
| -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 |