Extend UTF-8 support past the BMP

Now codepoints up to U+1FFFFF are supported, including
as literals with the new \u{NNNNNN} syntax (up to six hex digits)

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 4 insertions, 1 deletions

diff --git a/tests/utftcl.test b/tests/utftcl.test
index db058c2..a58fdda 100644
--- a/tests/utftcl.test
+++ b/tests/utftcl.test
@@ -53,9 +53,12 @@ test utf-2.6 {Tcl_UtfToUniChar: lead (3-byte) followed by 1 trail} {
 test utf-2.7 {Tcl_UtfToUniChar: lead (3-byte) followed by 2 trail} {
     string length [bytestring "\xE4\xb9\x8e"]
 } {1}
-test utf-2.8 {Tcl_UtfToUniChar: longer UTF sequences not supported} {
+test utf-2.8 {Tcl_UtfToUniChar: longer UTF sequences not supported} tcl {
     string length [bytestring "\xF4\xA2\xA2\xA2"]
 } {4}
+test utf-2.9 {Tcl_UtfToUniChar: 4-byte UTF sequence} jim {
+    string length [bytestring "\xF4\xA2\xA2\xA2"]
+} {1}
 
 test utf-3.1 {Tcl_UtfCharComplete} {
 } {}