From 9f6ad73686d6dc1fc8628be60a0d42a6ee20817c Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Wed, 20 Oct 2010 16:01:17 +1000 Subject: Add UTF-8 support to Jim Signed-off-by: Steve Bennett --- tests/string.test | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) (limited to 'tests/string.test') diff --git a/tests/string.test b/tests/string.test index 782d7bf..220b70e 100644 --- a/tests/string.test +++ b/tests/string.test @@ -404,11 +404,13 @@ test string-7.14 {string last, start index} { string last ba badbad end-2 } 0 test string-7.15 {string last, start index} { - string last \334a \334ad\334ad 0 + string last \u00dca \u00dcad\u00dcad 0 } -1 -test string-7.16 {string last, start index} { - string last \334a \334ad\334ad end-1 -} 3 +ifutf8 { + test string-7.16 {string last, start index} { + string last \u00dca \u00dcad\u00dcad end-1 + } 3 +} test string-9.1 {string length} { list [catch {string length} msg] @@ -457,11 +459,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 -- cgit v1.1