diff options
| author | Steve Bennett <steveb@workware.net.au> | 2011-10-10 08:19:01 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2011-10-10 08:19:01 +1000 |
| commit | 510a65c687133c537b428992d0b1df6c336deaeb (patch) | |
| tree | 4ce036628d4e46767088e3bfdadb032f23bd707a /tests | |
| parent | dfbde800afdabc83efc9ebe087b1aed6a90136d8 (diff) | |
| download | jimtcl-510a65c687133c537b428992d0b1df6c336deaeb.zip jimtcl-510a65c687133c537b428992d0b1df6c336deaeb.tar.gz jimtcl-510a65c687133c537b428992d0b1df6c336deaeb.tar.bz2 | |
Simplify the way unicode case mapping is done
Smaller, faster and includes title-case characters.
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/utf8.test | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/utf8.test b/tests/utf8.test index 04c5b57..715df13 100644 --- a/tests/utf8.test +++ b/tests/utf8.test @@ -125,4 +125,8 @@ test utf8-7.2 {append counts correctly} { list [string length $x] [string bytelength $x] } {8 12} +test utf8-7.3 {Upper, lower for titlecase utf-8} { + list [string toupper \u01c5] [string tolower \u01c5] +} "\u01c4 \u01c6" + testreport |