diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-11-07 13:29:28 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-11-07 13:29:28 (GMT) |
commit | d0665d7a121733fde114a357da8ca7369a14aa39 (patch) | |
tree | ed7bcc1f5e0bc47ad799eb1047621c73c61f3702 /tests/string.test | |
parent | c06751fdf8ec42ead80c501c199817370fbef853 (diff) | |
parent | ac4fb39a73fb01e2cbb763a086191aa4fcec175f (diff) | |
download | tcl-d0665d7a121733fde114a357da8ca7369a14aa39.zip tcl-d0665d7a121733fde114a357da8ca7369a14aa39.tar.gz tcl-d0665d7a121733fde114a357da8ca7369a14aa39.tar.bz2 |
merge core-8-6-branch
Diffstat (limited to 'tests/string.test')
-rw-r--r-- | tests/string.test | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/tests/string.test b/tests/string.test index cb901b9..cebaf4c 100644 --- a/tests/string.test +++ b/tests/string.test @@ -1697,40 +1697,40 @@ test string-24.4 {string reverse command - unshared string} { string reverse $x$y } edcba test string-24.5 {string reverse command - shared unicode string} { - set x abcde\udead + set x abcde\ud0ad string reverse $x -} \udeadedcba +} \ud0adedcba test string-24.6 {string reverse command - unshared string} { set x abc - set y de\udead + set y de\ud0ad string reverse $x$y -} \udeadedcba +} \ud0adedcba test string-24.7 {string reverse command - simple case} { string reverse a } a test string-24.8 {string reverse command - simple case} { - string reverse \udead -} \udead + string reverse \ud0ad +} \ud0ad test string-24.9 {string reverse command - simple case} { string reverse {} } {} test string-24.10 {string reverse command - corner case} { - set x \ubeef\udead + set x \ubeef\ud0ad string reverse $x -} \udead\ubeef +} \ud0ad\ubeef test string-24.11 {string reverse command - corner case} { set x \ubeef - set y \udead + set y \ud0ad string reverse $x$y -} \udead\ubeef +} \ud0ad\ubeef test string-24.12 {string reverse command - corner case} { set x \ubeef - set y \udead + set y \ud0ad string is ascii [string reverse $x$y] } 0 test string-24.13 {string reverse command - pure Unicode string} { - string reverse [string range \ubeef\udead\ubeef\udead\ubeef\udead 1 5] -} \udead\ubeef\udead\ubeef\udead + string reverse [string range \ubeef\ud0ad\ubeef\ud0ad\ubeef\ud0ad 1 5] +} \ud0ad\ubeef\ud0ad\ubeef\ud0ad test string-24.14 {string reverse command - pure bytearray} { binary scan [string reverse [binary format H* 010203]] H* x set x |