diff options
author | dgp <dgp@users.sourceforge.net> | 2016-10-14 19:29:52 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2016-10-14 19:29:52 (GMT) |
commit | ae54e070a1abfeb5344f99623b55fc7515a56de8 (patch) | |
tree | 44cdc12fe613bcdf9dbbc209f24c781e07426325 /tests | |
parent | e35292f3148b49b096a52e07789775a9e6e8baba (diff) | |
parent | 8b894ab295af35f4793ab68580a0f2cb6477a638 (diff) | |
download | tcl-ae54e070a1abfeb5344f99623b55fc7515a56de8.zip tcl-ae54e070a1abfeb5344f99623b55fc7515a56de8.tar.gz tcl-ae54e070a1abfeb5344f99623b55fc7515a56de8.tar.bz2 |
[eb6b68c1a9] Simple fix for [string replace] error demonstrated by new test.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/stringComp.test | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/stringComp.test b/tests/stringComp.test index 140a270..2aeb08e 100644 --- a/tests/stringComp.test +++ b/tests/stringComp.test @@ -738,6 +738,9 @@ test stringComp-14.4 {Bug 1af8de570511} { string replace $val[unset val] 1 1 $y }} 4 x } 0x00 +test stringComp-14.5 {} { + string length [string replace [string repeat a\u00fe 2] 3 end {}] +} 3 ## string tolower ## not yet bc |