diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-02-07 16:19:19 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-02-07 16:19:19 (GMT) |
commit | 134d7c7295b6c696cb821a6ca105d77988af5df3 (patch) | |
tree | aa509b037c46bb456db183e430972cc3505adbea /tests/encodingVectors.tcl | |
parent | 0251bc0e9ee55ce20edbebee883bb70faa6e9b1d (diff) | |
download | tcl-134d7c7295b6c696cb821a6ca105d77988af5df3.zip tcl-134d7c7295b6c696cb821a6ca105d77988af5df3.tar.gz tcl-134d7c7295b6c696cb821a6ca105d77988af5df3.tar.bz2 |
Those testcases are not a bug, but actually correct. See TIP #619: Starting with Tcl 9.0, surrogates are no longer combined automatically.
This has no relation with -profile, which only specifies whether to throw an exception or use a replacement character.
Diffstat (limited to 'tests/encodingVectors.tcl')
-rw-r--r-- | tests/encodingVectors.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/encodingVectors.tcl b/tests/encodingVectors.tcl index a0bd552..c73b7f7 100644 --- a/tests/encodingVectors.tcl +++ b/tests/encodingVectors.tcl @@ -343,10 +343,10 @@ lappend encInvalidBytes {*}{ utf-8 EDBFBF tcl8 \uDFFF -1 {} {Low surrogate} utf-8 EDBFBF replace \uFFFD -1 {} {Low surrogate} utf-8 EDBFBF strict {} 0 {} {Low surrogate} - utf-8 EDA080EDB080 tcl8 \U00010000 -1 {knownBug} {High low surrogate pair} + utf-8 EDA080EDB080 tcl8 \uD800\uDC00 -1 {} {High low surrogate pair} utf-8 EDA080EDB080 replace \uFFFD\uFFFD -1 {} {High low surrogate pair} utf-8 EDA080EDB080 strict {} 0 {} {High low surrogate pair} - utf-8 EDAFBFEDBFBF tcl8 \U0010FFFF -1 {knownBug} {High low surrogate pair} + utf-8 EDAFBFEDBFBF tcl8 \uDBFF\uDFFF -1 {} {High low surrogate pair} utf-8 EDAFBFEDBFBF replace \uFFFD\uFFFD -1 {} {High low surrogate pair} utf-8 EDAFBFEDBFBF strict {} 0 {} {High low surrogate pair} |