summaryrefslogtreecommitdiffstats
path: root/tests/regexp.test
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2017-02-17 09:20:49 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2017-02-17 09:20:49 (GMT)
commit4d7b9162e578238f275688adcef5d56242b8ae7e (patch)
tree3c8641d77c107d37898ba2c255c1bc42d88c3ea7 /tests/regexp.test
parent203058f02d4fbfde79ae5a95f9648f61681a36fa (diff)
downloadtcl-4d7b9162e578238f275688adcef5d56242b8ae7e.zip
tcl-4d7b9162e578238f275688adcef5d56242b8ae7e.tar.gz
tcl-4d7b9162e578238f275688adcef5d56242b8ae7e.tar.bz2
Stop problems with representation smashes.
Diffstat (limited to 'tests/regexp.test')
-rw-r--r--tests/regexp.test6
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/regexp.test b/tests/regexp.test
index 6c3d774..ad770fa 100644
--- a/tests/regexp.test
+++ b/tests/regexp.test
@@ -1143,6 +1143,12 @@ test regexp-27.5 {regsub -command} {
test regexp-27.6 {regsub -command} {
regsub -command -all {(.)(.)} {abcdef} {list ,}
} {, ab a b, cd c d, ef e f}
+test regexp-27.7 {regsub -command representation smash} {
+ set ::s {123=456 789}
+ regsub -command -all {\d+} $::s {apply {n {
+ expr {[llength $::s] + $n}
+ }}}
+} {125=458 791}
# cleanup
::tcltest::cleanupTests