From 7110b5a18c09fdf57b9da18e5a8cf60ee43b1430 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Mon, 13 Apr 2020 16:44:07 +0000
Subject: New test demonstrating Tcl_StringCaseMatch is botched in its use of
 Tcl_UtfPrev.  It doesn't consider multi-byte characters at all, let alone
 anything malformed. Good thing the call isn't needed at all.

---
 tests/util.test | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/tests/util.test b/tests/util.test
index 46d9152..85c06dd 100644
--- a/tests/util.test
+++ b/tests/util.test
@@ -378,6 +378,10 @@ test util-5.50 {Tcl_StringMatch} {
 test util-5.51 {Tcl_StringMatch} {
     Wrapper_Tcl_StringMatch "" ""
 } 1
+test util-5.52 {Tcl_StringMatch} {
+    Wrapper_Tcl_StringMatch \[a\u0000 a\x80
+} 0
+
 
 test util-6.1 {Tcl_PrintDouble - using tcl_precision} -setup {
     set old_precision $::tcl_precision
-- 
cgit v0.12