diff options
author | dgp <dgp@users.sourceforge.net> | 2020-04-29 22:04:16 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2020-04-29 22:04:16 (GMT) |
commit | 03f932c5097d9c30fceae394f42f9b73f6c48809 (patch) | |
tree | 0cb3996a638d76f1b692c4417925b6b558e5d7fe /tests/utf.test | |
parent | 7acc3ec55fbc42255ab3d5f60dad55d8500976a1 (diff) | |
download | tcl-03f932c5097d9c30fceae394f42f9b73f6c48809.zip tcl-03f932c5097d9c30fceae394f42f9b73f6c48809.tar.gz tcl-03f932c5097d9c30fceae394f42f9b73f6c48809.tar.bz2 |
New test for Tcl_UniCharNcmp.
Diffstat (limited to 'tests/utf.test')
-rw-r--r-- | tests/utf.test | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/utf.test b/tests/utf.test index 86f151e..8ad169e 100644 --- a/tests/utf.test +++ b/tests/utf.test @@ -1321,8 +1321,9 @@ test utf-19.1 {TclUniCharLen} -body { unset -nocomplain foo } -result {1 4} -test utf-20.1 {TclUniCharNcmp} { -} {} +test utf-20.1 {TclUniCharNcmp} {fullutf} { + string compare [string range [format %c 0xFFFF] 0 0] [string range [format %c 0x10000] 0 0] +} -1 test utf-21.1 {TclUniCharIsAlnum} { # this returns 1 with Unicode 7 compliance |