Test for [Bug 3285472]. Not buggy in trunk.

2 files changed, 9 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index 57be1eb..cc68aaa 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2011-04-12  Don Porter  <dgp@users.sourceforge.net>
+
+	* tests/string.test:	Test for [Bug 3285472]. Not buggy in trunk.
+
 2011-04-12  Venkat Iyer <venkat@comit.com>
 
 	* library/tzdata/Atlantic/Stanley: Update to Olson tzdata2011f
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}