summaryrefslogtreecommitdiffstats
path: root/tests/string.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2011-04-12 20:13:55 (GMT)
committerdgp <dgp@users.sourceforge.net>2011-04-12 20:13:55 (GMT)
commitac9480ca488c245a75ac57acd5ca9253de732edd (patch)
treea4bc01f3e7879caeca98c952177541e7d1a817bf /tests/string.test
parent4a912402a95227457fe7d0cbd0d8f8ee54eafd39 (diff)
parent37b1332c5e9a5098b66e6775c9073680f9cf94fa (diff)
downloadtcl-ac9480ca488c245a75ac57acd5ca9253de732edd.zip
tcl-ac9480ca488c245a75ac57acd5ca9253de732edd.tar.gz
tcl-ac9480ca488c245a75ac57acd5ca9253de732edd.tar.bz2
Test for [Bug 3285472]. Not buggy in trunk.
Diffstat (limited to 'tests/string.test')
-rw-r--r--tests/string.test5
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}