diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-04-13 16:44:07 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-04-13 16:44:07 (GMT) |
| commit | 7110b5a18c09fdf57b9da18e5a8cf60ee43b1430 (patch) | |
| tree | 597070844fb8812c3072e10f487f80dd5539424a /tests/util.test | |
| parent | 9b529e05399279d3631a9740e3b61bb19a1af5d8 (diff) | |
| download | tcl-7110b5a18c09fdf57b9da18e5a8cf60ee43b1430.zip tcl-7110b5a18c09fdf57b9da18e5a8cf60ee43b1430.tar.gz tcl-7110b5a18c09fdf57b9da18e5a8cf60ee43b1430.tar.bz2 | |
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.
Diffstat (limited to 'tests/util.test')
| -rw-r--r-- | tests/util.test | 4 |
1 files changed, 4 insertions, 0 deletions
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 |