diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-03-22 20:44:36 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-03-22 20:44:36 (GMT) |
| commit | af74f1af12dc408e48402831f746b42cf365baf7 (patch) | |
| tree | 9a760c1bf885eed8ebf5b62d6e0171c3fa256d88 /tests/util.test | |
| parent | 69c460065e1b5e87041eec3fbdd2cc2ac2624318 (diff) | |
| download | tcl-af74f1af12dc408e48402831f746b42cf365baf7.zip tcl-af74f1af12dc408e48402831f746b42cf365baf7.tar.gz tcl-af74f1af12dc408e48402831f746b42cf365baf7.tar.bz2 | |
Add some test-cases with longer backslash sequences, to test for internal buffer overflows.
Diffstat (limited to 'tests/util.test')
| -rw-r--r-- | tests/util.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/util.test b/tests/util.test index 2b2ceb2..a9199f4 100644 --- a/tests/util.test +++ b/tests/util.test @@ -282,7 +282,7 @@ test util-5.17 {Tcl_StringMatch: UTF-8} { test util-5.18 {Tcl_StringMatch: UTF-8} testbytestring { # pattern += Tcl_UtfToUniChar(pattern, &endChar); # proper advance: wrong answer would match on UTF trail byte of \u4e4f - Wrapper_Tcl_StringMatch {a[a\u4e4fc]c} [testbytestring a\u008fc] + Wrapper_Tcl_StringMatch {a[a\u4e4fc]c} [testbytestring a\x8fc] } 0 test util-5.19 {Tcl_StringMatch: UTF-8} { # pattern += Tcl_UtfToUniChar(pattern, &endChar); |