diff options
| author | dgp <dgp@users.sourceforge.net> | 2021-04-14 18:58:54 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2021-04-14 18:58:54 (GMT) |
| commit | 9cb33ddcc542ff8855a3892170d61ec1375567e4 (patch) | |
| tree | eec6cd33de783d6dbcdf6b3d00ade7d020995258 /tests/util.test | |
| parent | 0b6db319f0ee6a542c2d1ad6f46b587211f882d2 (diff) | |
| parent | c942ef369bab61550b2904337f031f958da3b28e (diff) | |
| download | tcl-9cb33ddcc542ff8855a3892170d61ec1375567e4.zip tcl-9cb33ddcc542ff8855a3892170d61ec1375567e4.tar.gz tcl-9cb33ddcc542ff8855a3892170d61ec1375567e4.tar.bz2 | |
merge 8.5; adapt fix for 8.6
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 052e7d3..d0b98a5 100644 --- a/tests/util.test +++ b/tests/util.test @@ -211,6 +211,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 |