diff options
author | dgp <dgp@users.sourceforge.net> | 2018-03-14 21:51:13 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2018-03-14 21:51:13 (GMT) |
commit | 72c721f3e71c327c2e70def50fb04f48c4527442 (patch) | |
tree | 5be4eacb21d2c81585f74ef9cc9864e6a13bf086 /tests | |
parent | 6d4320b5fbe2afd973751c4b5de70a89e0d62214 (diff) | |
parent | 1bf60bab3cd706cba08c15df5a6a5267d918aeae (diff) | |
download | tcl-72c721f3e71c327c2e70def50fb04f48c4527442.zip tcl-72c721f3e71c327c2e70def50fb04f48c4527442.tar.gz tcl-72c721f3e71c327c2e70def50fb04f48c4527442.tar.bz2 |
merge 8.6
Diffstat (limited to 'tests')
-rw-r--r-- | tests/string.test | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/string.test b/tests/string.test index fc8dabb..d69fda4 100644 --- a/tests/string.test +++ b/tests/string.test @@ -1378,6 +1378,12 @@ test string-14.16 {string replace} { test string-14.17 {string replace} { string replace abcdefghijklmnop end end-1 } {abcdefghijklmnop} +test string-14.18 {string replace} { + string replace abcdefghijklmnop 10 9 XXX +} {abcdefghijklmnop} +test string-14.19 {string replace} { + string replace {} -1 0 A +} A test string-15.1 {string tolower too few args} { list [catch {string tolower} msg] $msg |