From 2414411935e501e37c25ceeea273e5bcdc837fbb Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Thu, 30 Apr 2020 20:32:38 +0000
Subject: Test for [4c591fa487].

---
 tests/utf.test | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/tests/utf.test b/tests/utf.test
index 2a468f9..a00f89d 100644
--- a/tests/utf.test
+++ b/tests/utf.test
@@ -1327,6 +1327,15 @@ test utf-19.1 {TclUniCharLen} -body {
 test utf-20.1 {TclUniCharNcmp} {ucs4} {
     string compare [string range [format %c 0xFFFF] 0 0] [string range [format %c 0x10000] 0 0]
 } -1
+test utf-20.2 {[4c591fa487] TclUniCharNcmp/TclUtfNcmp} {
+    set one [format %c 0xFFFF]
+    set two [format %c 0xFFFF]
+    set first [string compare $one $two]
+    string range $one 0 0
+    string range $two 0 0 
+    set second [string compare $one $two]
+    expr {($first == $second) ? "agree" : "disagree"}
+} agree
 
 test utf-21.1 {TclUniCharIsAlnum} {
     # this returns 1 with Unicode 7 compliance
-- 
cgit v0.12


From 58ce7d319f84db00c8863a8a27d366a34e60756c Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Thu, 30 Apr 2020 20:55:50 +0000
Subject: D'oh!

---
 tests/utf.test | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/utf.test b/tests/utf.test
index a00f89d..7fc1de0 100644
--- a/tests/utf.test
+++ b/tests/utf.test
@@ -1329,7 +1329,7 @@ test utf-20.1 {TclUniCharNcmp} {ucs4} {
 } -1
 test utf-20.2 {[4c591fa487] TclUniCharNcmp/TclUtfNcmp} {
     set one [format %c 0xFFFF]
-    set two [format %c 0xFFFF]
+    set two [format %c 0x10000]
     set first [string compare $one $two]
     string range $one 0 0
     string range $two 0 0 
-- 
cgit v0.12