diff options
author | Steve Bennett <steveb@workware.net.au> | 2010-10-20 16:01:17 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-11-17 07:57:37 +1000 |
commit | 9f6ad73686d6dc1fc8628be60a0d42a6ee20817c (patch) | |
tree | 455e400d7d49937b5814d824ff40461aee93b8ff /tests/jim.test | |
parent | abac7fb5ee7d37150951b9618ba6a0ee57d98085 (diff) | |
download | jimtcl-9f6ad73686d6dc1fc8628be60a0d42a6ee20817c.zip jimtcl-9f6ad73686d6dc1fc8628be60a0d42a6ee20817c.tar.gz jimtcl-9f6ad73686d6dc1fc8628be60a0d42a6ee20817c.tar.bz2 |
Add UTF-8 support to Jim
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/jim.test')
-rw-r--r-- | tests/jim.test | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/tests/jim.test b/tests/jim.test index b414c25..1fcead3 100644 --- a/tests/jim.test +++ b/tests/jim.test @@ -2279,11 +2279,11 @@ test string-10.11 {string map, nulls} { string map {\x00 NULL blah \x00nix} {qwerty} } {qwerty} test string-10.12 {string map, unicode} { - string map [list \374 ue UE \334] "a\374ueUE\000EU" -} aueue\334\0EU + string map [list \u00fc ue UE \u00dc] "a\u00fcueUE\000EU" +} aueue\u00dc\0EU test string-10.13 {string map, -nocase unicode} { - string map -nocase [list \374 ue UE \334] "a\374ueUE\000EU" -} aue\334\334\0EU + string map -nocase [list \u00fc ue UE \u00dc] "a\u00fcueUE\000EU" +} aue\u00dc\u00dc\0EU test string-10.14 {string map, -nocase null arguments} { string map -nocase {{} abc} foo } foo @@ -2352,9 +2352,9 @@ test split-1.10 {basic split commands} { test split-1.11 {basic split commands} { split "12,3,45" {,} } {12 3 45} -#test split-1.12 {basic split commands} { -# split "\u0001ab\u0001cd\u0001\u0001ef\u0001" \1 -#} {{} ab cd {} ef {}} +test split-1.12 {basic split commands} { + split "\u0001ab\u0001cd\u0001\u0001ef\u0001" \1 +} {{} ab cd {} ef {}} test split-1.13 {basic split commands} { split "12,34,56," {,} } {12 34 56 {}} |