diff options
author | Steve Bennett <steveb@workware.net.au> | 2020-04-18 09:34:25 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2020-05-04 21:57:34 +1000 |
commit | da82368c816c8d06f425aa3f25a2a918fdba1df1 (patch) | |
tree | e1dc05358910d168edc982ed05523d0b30ad24d5 /tests/utf8.test | |
parent | 8a5861eb51c32e41d638181188c256c1dbb93c96 (diff) | |
download | jimtcl-da82368c816c8d06f425aa3f25a2a918fdba1df1.zip jimtcl-da82368c816c8d06f425aa3f25a2a918fdba1df1.tar.gz jimtcl-da82368c816c8d06f425aa3f25a2a918fdba1df1.tar.bz2 |
tests: Add many new additional tests for code coverage
readdir, tty, utf8, signal, alarm, kill, file, jimsh, posix, aio,
history, interp, pack, unpack, eventloop, exec, load, package,
regexp, regsub
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/utf8.test')
-rw-r--r-- | tests/utf8.test | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/tests/utf8.test b/tests/utf8.test index 74a5aa8..7b655da 100644 --- a/tests/utf8.test +++ b/tests/utf8.test @@ -149,4 +149,24 @@ test utf8-8.4 {Longer sequences} { string length \u12000 } 2 +test utf8-8.5 {\U} jim { + set x \U000000b5 +} \ub5 + +test utf8-8.6 {\u invalid} { + set x "\u{0000000b5}" +} "u{0000000b5}" + +test utf8-9.1 {string totitle} { + string totitle \u01c4-test +} "\u01c5-test" + +test utf8-9.2 {string totitle} { + string totitle \u01c5-test +} "\u01c5-test" + +test utf8-9.3 {string totitle} { + string totitle abc-\u01c4 +} "Abc-\u01c6" + testreport |