summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2016-03-20 20:40:07 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2016-03-20 20:40:07 (GMT)
commit01d1cdb5e8789884ae310c5e38fb976559157460 (patch)
tree0c82168b2d4fedfd1bf0a71ebfdc1f421269747a /tests
parentbfa7cb3c5d224a86a6136bc063018638eb3b9a0b (diff)
downloadtcl-01d1cdb5e8789884ae310c5e38fb976559157460.zip
tcl-01d1cdb5e8789884ae310c5e38fb976559157460.tar.gz
tcl-01d1cdb5e8789884ae310c5e38fb976559157460.tar.bz2
[1af8de570511] Fix crash in [string replace] caused by cut-n-paste.
Diffstat (limited to 'tests')
-rw-r--r--tests/stringComp.test10
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/stringComp.test b/tests/stringComp.test
index a66525e..140a270 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