diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-06 09:02:28 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-06 09:02:28 (GMT) |
commit | 829350cc1a1b9d065ccda17583ee55c731598f13 (patch) | |
tree | 343eb18a047fe870681ccaed606fbefaba313b49 /tests | |
parent | ab808831bd7d76198dfc874049b9fd00b009646e (diff) | |
download | tcl-829350cc1a1b9d065ccda17583ee55c731598f13.zip tcl-829350cc1a1b9d065ccda17583ee55c731598f13.tar.gz tcl-829350cc1a1b9d065ccda17583ee55c731598f13.tar.bz2 |
[67aa9a2070] Tcl_UtfToUniChar returns single byte for invalid UTF-8 input as documented.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/encoding.test | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/tests/encoding.test b/tests/encoding.test index aa50360..85deb33 100644 --- a/tests/encoding.test +++ b/tests/encoding.test @@ -439,6 +439,31 @@ test encoding-24.3 {EscapeFreeProc on open channels} {stdio} { list $count [viewable $line] } [list 3 "\u4e4e\u4e5e\u4e5f (\\u4e4e\\u4e5e\\u4e5f)"] +test encoding-24.4 {Parse valid or invalid utf-8} { + string length [encoding convertfrom utf-8 "\xc0\x80"] +} 1 +test encoding-24.5 {Parse valid or invalid utf-8} { + string length [encoding convertfrom utf-8 "\xc0\x81"] +} 2 +test encoding-24.6 {Parse valid or invalid utf-8} { + string length [encoding convertfrom utf-8 "\xc1\xbf"] +} 2 +test encoding-24.7 {Parse valid or invalid utf-8} { + string length [encoding convertfrom utf-8 "\xc2\x80"] +} 1 +test encoding-24.8 {Parse valid or invalid utf-8} { + string length [encoding convertfrom utf-8 "\xe0\x80\x80"] +} 3 +test encoding-24.9 {Parse valid or invalid utf-8} { + string length [encoding convertfrom utf-8 "\xe0\x9f\xbf"] +} 3 +test encoding-24.10 {Parse valid or invalid utf-8} { + string length [encoding convertfrom utf-8 "\xe0\xa0\x80"] +} 1 +test encoding-24.11 {Parse valid or invalid utf-8} { + string length [encoding convertfrom utf-8 "\xef\xbf\xbf"] +} 1 + file delete [file join [temporaryDirectory] iso2022.txt] # |