diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2016-03-20 20:43:57 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2016-03-20 20:43:57 (GMT) |
commit | c2bbf3cc3a6c2c35b0911def8f5759e4e0307053 (patch) | |
tree | ef1ff2da03b8dfbd37d7a9454b7297df6a7ef342 /tests/stringComp.test | |
parent | e3777c3fae15755d6c7951309e8c2f6a152e737c (diff) | |
parent | 6f7c0d0cb81c0a6d9144679065e189a6274ac1ed (diff) | |
download | tcl-c2bbf3cc3a6c2c35b0911def8f5759e4e0307053.zip tcl-c2bbf3cc3a6c2c35b0911def8f5759e4e0307053.tar.gz tcl-c2bbf3cc3a6c2c35b0911def8f5759e4e0307053.tar.bz2 |
[1af8de570511] Fix crash in [string replace] caused by cut-n-paste.
Diffstat (limited to 'tests/stringComp.test')
-rw-r--r-- | tests/stringComp.test | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/stringComp.test b/tests/stringComp.test index f5ba002..77e14d6 100644 --- a/tests/stringComp.test +++ b/tests/stringComp.test @@ -728,6 +728,16 @@ test stringComp-14.3 {Bug 0dca3bfa8f} { expr {$arg ne $argCopy} }} abcde } 1 +test stringComp-14.4 {Bug 1af8de570511} { + apply {{x y} { + # Generate an unshared string value + set val "" + for { set i 0 } { $i < $x } { incr i } { + set val [format "0%s" $val] + } + string replace $val[unset val] 1 1 $y + }} 4 x +} 0x00 ## string tolower ## not yet bc |