diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-08-25 12:03:56 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-08-25 12:03:56 (GMT) |
| commit | f5577bc0ca1c7f01baac7f612ad52f3526ffe327 (patch) | |
| tree | d5a8067cf4b83a338c420ea363bf359d3f33dcbf /tests/string.test | |
| parent | dd0f607950cf1416722aa14bd13506278ec6dd2c (diff) | |
| parent | 545f0cffe802c26b1779eb2f9ca6c4ade8c8c654 (diff) | |
| download | tcl-f5577bc0ca1c7f01baac7f612ad52f3526ffe327.zip tcl-f5577bc0ca1c7f01baac7f612ad52f3526ffe327.tar.gz tcl-f5577bc0ca1c7f01baac7f612ad52f3526ffe327.tar.bz2 | |
Merge to feature branch
Diffstat (limited to 'tests/string.test')
| -rw-r--r-- | tests/string.test | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/string.test b/tests/string.test index 1a62a66..92f544e 100644 --- a/tests/string.test +++ b/tests/string.test @@ -1623,6 +1623,9 @@ test string-24.12 {string reverse command - corner case} { set y \udead 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 test string-25.1 {string is list} { string is list {a b c} |