diff options
| author | dgp <dgp@users.sourceforge.net> | 2021-04-14 18:23:07 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2021-04-14 18:23:07 (GMT) |
| commit | 32a76688f63ce4b8af7a8c1e6ef82444cd549f7f (patch) | |
| tree | 709cd1da02edb13dd731123dbcfebf833004c067 /tests | |
| parent | cf9fc355f851761768c2eba9e991682558c20f48 (diff) | |
| download | tcl-32a76688f63ce4b8af7a8c1e6ef82444cd549f7f.zip tcl-32a76688f63ce4b8af7a8c1e6ef82444cd549f7f.tar.gz tcl-32a76688f63ce4b8af7a8c1e6ef82444cd549f7f.tar.bz2 | |
Test demonstrating bug [26649439c7].
Diffstat (limited to 'tests')
| -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 3f7ffe2..9eee1a6 100644 --- a/tests/util.test +++ b/tests/util.test @@ -206,6 +206,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 |