diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2017-02-17 09:20:49 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2017-02-17 09:20:49 (GMT) |
| commit | 4d7b9162e578238f275688adcef5d56242b8ae7e (patch) | |
| tree | 3c8641d77c107d37898ba2c255c1bc42d88c3ea7 /tests/regexp.test | |
| parent | 203058f02d4fbfde79ae5a95f9648f61681a36fa (diff) | |
| download | tcl-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.test | 6 |
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 |