From ab4e3e7729712e4c16038e99e657401788e364b5 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Thu, 22 Jun 2017 22:54:32 +0000
Subject: Add [regsub -command] case that wasn't actively tested for.

---
 tests/regexp.test | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/tests/regexp.test b/tests/regexp.test
index 2686526..7367af7 100644
--- a/tests/regexp.test
+++ b/tests/regexp.test
@@ -1184,6 +1184,10 @@ test regexp-27.10 {regsub -command error cases} -returnCodes error -body {
 test regexp-27.11 {regsub -command error cases} -returnCodes error -body {
     regsub -command . abc {}
 } -result {command prefix must be a list of at least one element}
+test regexp-27.12 {regsub -command representation smash} {
+    set s {list (.+)}
+    regsub -command $s {list list} $s
+} {(.+) {list list} list}
 
 # cleanup
 ::tcltest::cleanupTests
-- 
cgit v0.12