More tests showing more bugs.

1 files changed, 10 insertions, 1 deletions

diff --git a/tests/utf.test b/tests/utf.test
index 10185d3..970d4fd 100644
--- a/tests/utf.test
+++ b/tests/utf.test
@@ -1111,6 +1111,9 @@ test utf-11.4 {Tcl_UtfToUpper} {
 test utf-11.5 {Tcl_UtfToUpper Georgian (new in Unicode 11)} {
     string toupper \u10D0\u1C90
 } \u1C90\u1C90
+test utf-11.6 {Tcl_UtfToUpper beyond U+FFFF} {Uesc fullutf} {
+    string toupper \U10428
+} \U10400
 
 test utf-12.1 {Tcl_UtfToLower} {
     string tolower {}
@@ -1127,9 +1130,12 @@ test utf-12.4 {Tcl_UtfToLower} {
 test utf-12.5 {Tcl_UtfToLower Georgian (new in Unicode 11)} {
     string tolower \u10D0\u1C90
 } \u10D0\u10D0
-test utf-12.6 {Tcl_UtfToUpper low/high surrogate)} {
+test utf-12.6 {Tcl_UtfToLower low/high surrogate)} {
     string tolower \uDC24\uD824
 } \uDC24\uD824
+test utf-12.7 {Tcl_UtfToLower beyond U+FFFF} {Uesc fullutf} {
+    string tolower \U10400
+} \U10428
 
 test utf-13.1 {Tcl_UtfToTitle} {
     string totitle {}
@@ -1152,6 +1158,9 @@ test utf-13.6 {Tcl_UtfToTitle Georgian (new in Unicode 11)} {
 test utf-13.7 {Tcl_UtfToTitle low/high surrogate)} {
     string totitle \uDC24\uD824
 } \uDC24\uD824
+test utf-13.8 {Tcl_UtfToTitle beyond U+FFFF} {Uesc fullutf} {
+    string totitle \U10428
+} \U10400
 
 test utf-14.1 {Tcl_UtfNcasecmp} {
     string compare -nocase a b