summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2017-06-22 22:54:32 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2017-06-22 22:54:32 (GMT)
commitab4e3e7729712e4c16038e99e657401788e364b5 (patch)
treec0028f42647dae829b55e1c72bf8f2796afb016f /tests
parent3e1f74a42db81eb1bd0b963a6ce60f1c44b1bf7c (diff)
downloadtcl-ab4e3e7729712e4c16038e99e657401788e364b5.zip
tcl-ab4e3e7729712e4c16038e99e657401788e364b5.tar.gz
tcl-ab4e3e7729712e4c16038e99e657401788e364b5.tar.bz2
Add [regsub -command] case that wasn't actively tested for.
Diffstat (limited to 'tests')
-rw-r--r--tests/regexp.test4
1 files changed, 4 insertions, 0 deletions
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