Merge fork

1 files changed, 8 insertions, 0 deletions

diff --git a/tests/utf.test b/tests/utf.test
index 3262214..1974979 100644
--- a/tests/utf.test
+++ b/tests/utf.test
@@ -84,6 +84,14 @@ test utf-1.13.0 {Tcl_UniCharToUtf: Invalid surrogate} {Uesc ucs2} {
 test utf-1.13.1 {Tcl_UniCharToUtf: Invalid surrogate} {fullutf testbytestring} {
     expr {"\UD842" eq [testbytestring \xEF\xBF\xBD]}
 } 1
+test utf-1.14 {Tcl_UniCharToUtf: surrogate pairs from concat} {pairsTo4bytes testbytestring} {
+    set hi \uD842
+    set lo \uDC42
+    eq "$hi$lo" [testbytestring \xF0\xA0\xA1\x92]
+} 1
+test utf-1.15 {Tcl_UniCharToUtf: surrogate pairs from concat} {pairsTo4bytes testbytestring} {
+    eq [string cat \uD842 \uDC42] [testbytestring \xF0\xA0\xA1\x92]
+} 1
 
 test utf-2.1 {Tcl_UtfToUniChar: low ascii} {
     string length "abc"