diff options
| author | dgp <dgp@users.sourceforge.net> | 2021-04-14 19:21:29 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2021-04-14 19:21:29 (GMT) |
| commit | 26331b61589b33cac2c4cd097e32c4cf9e968a00 (patch) | |
| tree | 427ea17ae21f2cd678d9d965a77a4a208f9af44b /tests/util.test | |
| parent | f334a082fc92d567fed5662b9c25986ccd5577df (diff) | |
| parent | fc702f65d29664d061ea6691971436e059e4d8bc (diff) | |
| download | tcl-26331b61589b33cac2c4cd097e32c4cf9e968a00.zip tcl-26331b61589b33cac2c4cd097e32c4cf9e968a00.tar.gz tcl-26331b61589b33cac2c4cd097e32c4cf9e968a00.tar.bz2 | |
merge 8.7
Diffstat (limited to 'tests/util.test')
| -rw-r--r-- | tests/util.test | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/util.test b/tests/util.test index 385896e..ec79336 100644 --- a/tests/util.test +++ b/tests/util.test @@ -212,6 +212,9 @@ test util-4.7 {Tcl_ConcatObj - refCount safety} testconcatobj { # symptoms was Bug #2055782. testconcatobj } {} +test util-4.8 {Tcl_ConcatObj - [Bug 26649439c7]} { + concat [list foo] [list #] +} {foo {#}} proc Wrapper_Tcl_StringMatch {pattern string} { # Forces use of Tcl_StringMatch, not Tcl_UniCharCaseMatch |