diff options
| author | fvogel <fvogelnew1@free.fr> | 2016-03-21 21:32:29 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2016-03-21 21:32:29 (GMT) |
| commit | 3b21ae36fc18189a6cc850c1db2dc0e93e7129b6 (patch) | |
| tree | cbcb9fac8b6662a217fd223f5504c2c2315ed447 /tests/stringComp.test | |
| parent | addefaba01a0a32c7659cd2ae09bd805957cc800 (diff) | |
| parent | 349c1fd2676793625cc0037a11d5989b0a591397 (diff) | |
| download | tcl-bug_f1253530cd.zip tcl-bug_f1253530cd.tar.gz tcl-bug_f1253530cd.tar.bz2 | |
Merged trunkbug_f1253530cd
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 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 |