diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-20 21:54:31 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-20 21:54:31 (GMT) |
commit | 206022e9799361a82f91780bace269e514fb27bf (patch) | |
tree | 77cb82b5bce6c88edfa708a410b26712b92c3c9b /tests/utf.test | |
parent | 059d5cc1803ee62dea1b7fd7e42e75453ce27264 (diff) | |
download | tcl-206022e9799361a82f91780bace269e514fb27bf.zip tcl-206022e9799361a82f91780bace269e514fb27bf.tar.gz tcl-206022e9799361a82f91780bace269e514fb27bf.tar.bz2 |
Teach Tcl_UtfPrev() that 0xC1 is _always_ an invallid byte. Test-case utf-7.34.
Make sure that Tcl_UtfCharComplete(src, TCL_UTF_MAX) always returns 1, for whatever bytes, since that's the maximum number of bytes Tcl_UtfToUniChar() can read in a single call.
Diffstat (limited to 'tests/utf.test')
-rw-r--r-- | tests/utf.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/utf.test b/tests/utf.test index 150e395..a12cc73 100644 --- a/tests/utf.test +++ b/tests/utf.test @@ -635,7 +635,7 @@ test utf-7.33 {Tcl_UtfPrev -- overlong sequence} testutfprev { } 1 test utf-7.34 {Tcl_UtfPrev -- overlong sequence} testutfprev { testutfprev A\xC1\x80 -} 1 +} 2 test utf-7.35 {Tcl_UtfPrev -- overlong sequence} testutfprev { testutfprev A\xC2\x80 } 1 |