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