aboutsummaryrefslogtreecommitdiff
path: root/tests/utf8.test
diff options
context:
space:
mode:
authorSteve Bennett <steveb@workware.net.au>2020-04-18 09:34:25 +1000
committerSteve Bennett <steveb@workware.net.au>2020-05-04 21:57:34 +1000
commitda82368c816c8d06f425aa3f25a2a918fdba1df1 (patch)
treee1dc05358910d168edc982ed05523d0b30ad24d5 /tests/utf8.test
parent8a5861eb51c32e41d638181188c256c1dbb93c96 (diff)
downloadjimtcl-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.test20
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