From 8a303800c6ce916cf3282753fa80554c94d2f22e Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Mon, 15 Jan 2024 19:22:02 +0000
Subject: Fix non-existing function names in test titles

---
 ChangeLog.1999 |  2 +-
 tests/utf.test | 22 +++++++++++-----------
 2 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/ChangeLog.1999 b/ChangeLog.1999
index e736dee..c2de0f2 100644
--- a/ChangeLog.1999
+++ b/ChangeLog.1999
@@ -2596,7 +2596,7 @@
 
 	* tclUtf.c: added Unicode character table support
 
-	* tclInt.h: added TclUniCharIsWordChar
+	* tclInt.h: added Tcl_UniCharIsWordChar
 
 	* tclCmdMZ.c (Tcl_StringObjCmd): added "totitle" subcommand, changed
 	"wordend" and "wordstart" to properly handle Unicode word characters
diff --git a/tests/utf.test b/tests/utf.test
index c9abb08..f7a4535 100644
--- a/tests/utf.test
+++ b/tests/utf.test
@@ -1343,7 +1343,7 @@ test utf-20.2 {[4c591fa487] TclUniCharNcmp/TclUtfNcmp} {
     expr {($first == $second) ? "agree" : "disagree"}
 } agree
 
-test utf-21.1 {TclUniCharIsAlnum} {
+test utf-21.1 {Tcl_UniCharIsAlnum} {
     # this returns 1 with Unicode 7 compliance
     string is alnum \u1040\u021F\u0220
 } 1
@@ -1355,7 +1355,7 @@ test utf-21.3 {unicode print char in regc_locale.c} {
     # this returns 1 with Unicode 7 compliance
     regexp {^[[:print:]]+$} \uFBC1
 } 1
-test utf-21.4 {TclUniCharIsGraph} {
+test utf-21.4 {Tcl_UniCharIsGraph} {
     # [Bug 3464428]
     string is graph \u0120
 } 1
@@ -1363,7 +1363,7 @@ test utf-21.5 {unicode graph char in regc_locale.c} {
     # [Bug 3464428]
     regexp {^[[:graph:]]+$} \u0120
 } 1
-test utf-21.6 {TclUniCharIsGraph} {
+test utf-21.6 {Tcl_UniCharIsGraph} {
     # [Bug 3464428]
     string is graph \xA0
 } 0
@@ -1371,7 +1371,7 @@ test utf-21.7 {unicode graph char in regc_locale.c} {
     # [Bug 3464428]
     regexp {[[:graph:]]} \x20\xA0\u2028\u2029
 } 0
-test utf-21.8 {TclUniCharIsPrint} {
+test utf-21.8 {Tcl_UniCharIsPrint} {
     # [Bug 3464428]
     string is print \x09
 } 0
@@ -1383,7 +1383,7 @@ test utf-21.10 {unicode print char in regc_locale.c} {
     # [Bug 3464428]
     regexp {[[:print:]]} \x09
 } 0
-test utf-21.11 {TclUniCharIsControl} {
+test utf-21.11 {Tcl_UniCharIsControl} {
     # [Bug 3464428]
     string is control \x00\x1F\xAD\u0605\u061C\u180E\u2066\uFEFF
 } 1
@@ -1392,14 +1392,14 @@ test utf-21.12 {unicode control char in regc_locale.c} {
     regexp {^[[:cntrl:]]*$} \x00\x1F\xAD\u0605\u061C\u180E\u2066\uFEFF
 } 1
 
-test utf-22.1 {TclUniCharIsWordChar} {
+test utf-22.1 {Tcl_UniCharIsWordChar} {
     string wordend "xyz123_bar fg" 0
 } 10
-test utf-22.2 {TclUniCharIsWordChar} {
+test utf-22.2 {Tcl_UniCharIsWordChar} {
     string wordend "x\u5080z123_bar\u203C fg" 0
 } 10
 
-test utf-23.1 {TclUniCharIsAlpha} {
+test utf-23.1 {Tcl_UniCharIsAlpha} {
     # this returns 1 with Unicode 7 compliance
     string is alpha \u021F\u0220\u037F\u052F
 } 1
@@ -1408,7 +1408,7 @@ test utf-23.2 {unicode alpha char in regc_locale.c} {
     regexp {^[[:alpha:]]+$} \u021F\u0220\u037F\u052F
 } 1
 
-test utf-24.1 {TclUniCharIsDigit} {
+test utf-24.1 {Tcl_UniCharIsDigit} {
     # this returns 1 with Unicode 7 compliance
     string is digit \u1040\uABF0
 } 1
@@ -1417,7 +1417,7 @@ test utf-24.2 {unicode digit char in regc_locale.c} {
     list [regexp {^[[:digit:]]+$} \u1040\uABF0] [regexp {^\d+$} \u1040\uABF0]
 } {1 1}
 
-test utf-24.3 {TclUniCharIsSpace} {
+test utf-24.3 {Tcl_UniCharIsSpace} {
     # this returns 1 with Unicode 7 compliance
     string is space \u1680\u180E\u202F
 } 1
@@ -1425,7 +1425,7 @@ test utf-24.4 {unicode space char in regc_locale.c} {
     # this returns 1 with Unicode 7 compliance
     list [regexp {^[[:space:]]+$} \u1680\u180E\u202F] [regexp {^\s+$} \u1680\u180E\u202F]
 } {1 1}
-test utf-24.5 {TclUniCharIsSpace} tip413 {
+test utf-24.5 {Tcl_UniCharIsSpace} tip413 {
     # this returns 1 with Unicode 7/TIP 413 compliance
     string is space \x85\u1680\u180E\u200B\u202F\u2060
 } 1
-- 
cgit v0.12