diff options
author | dgp <dgp@users.sourceforge.net> | 2011-04-12 20:13:55 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2011-04-12 20:13:55 (GMT) |
commit | 339ecdee6a126050c91589ce16c5388f8598231b (patch) | |
tree | a4bc01f3e7879caeca98c952177541e7d1a817bf /tests | |
parent | f66a0ef16ffc76bf06d093008ca53fbca4eb3356 (diff) | |
parent | ce6fbd8bb9c3fd5c8a26e3bc71ea22d0679fbd91 (diff) | |
download | tcl-339ecdee6a126050c91589ce16c5388f8598231b.zip tcl-339ecdee6a126050c91589ce16c5388f8598231b.tar.gz tcl-339ecdee6a126050c91589ce16c5388f8598231b.tar.bz2 |
Test for [Bug 3285472]. Not buggy in trunk.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/string.test | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/string.test b/tests/string.test index 2675faf..a3bac61 100644 --- a/tests/string.test +++ b/tests/string.test @@ -1618,6 +1618,11 @@ test string-24.11 {string reverse command - corner case} { set y \udead string reverse $x$y } \udead\ubeef +test string-24.12 {string reverse command - corner case} { + set x \ubeef + set y \udead + string is ascii [string reverse $x$y] +} 0 test string-25.1 {string is list} { string is list {a b c} |