Index: ChangeLog
===================================================================
RCS file: /cvsroot/tcl/tcl/ChangeLog,v
retrieving revision 1.368
diff -u -r1.368 ChangeLog
--- ChangeLog 2001/02/16 09:26:30 1.368
+++ ChangeLog 2001/02/20 16:01:35
@@ -1,3 +1,8 @@
+2001-02-20 Donal K. Fellows <[email protected]>
+
+ * tests/string.test (string-11.49): Added test for case in [string
+ match] where it fails to handle UTF-8 characters correctly.
+
2001-02-15 Donal K. Fellows <[email protected]>
* generic/tclCmdMZ.c (Tcl_SplitObjCmd): Improved efficiency of
Index: tests/string.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/string.test,v
retrieving revision 1.26
diff -u -r1.26 string.test
--- tests/string.test 2000/09/06 18:35:13 1.26
+++ tests/string.test 2001/02/20 16:01:35
@@ -843,6 +843,10 @@
test string-11.48 {string match, *special case} {
string match "?\\*" "a*"
} 1
+test string-11.49 {string match; *, -nocase and UTF-8} {
+ string match -nocase [binary format I 717316707] \
+ [binary format I 2028036707]
+} 1
test string-12.1 {string range} {
list [catch {string range} msg] $msg
