diff options
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | tests/string.test | 5 |
2 files changed, 9 insertions, 0 deletions
@@ -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} |