From 32a76688f63ce4b8af7a8c1e6ef82444cd549f7f Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Wed, 14 Apr 2021 18:23:07 +0000
Subject: Test demonstrating bug [26649439c7].
---
tests/util.test | 3 +++
1 file changed, 3 insertions(+)
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
--
cgit v0.12