summaryrefslogtreecommitdiffstats
path: root/tests/encodingVectors.tcl
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2024-02-07 16:19:19 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2024-02-07 16:19:19 (GMT)
commit134d7c7295b6c696cb821a6ca105d77988af5df3 (patch)
treeaa509b037c46bb456db183e430972cc3505adbea /tests/encodingVectors.tcl
parent0251bc0e9ee55ce20edbebee883bb70faa6e9b1d (diff)
downloadtcl-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.tcl4
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}