summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2023-02-22 17:56:42 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2023-02-22 17:56:42 (GMT)
commit8f37d5c24ef176d5df911feafb5f8159098a5cc2 (patch)
tree7f3a0c4209add4b55af842c263f110a3cb692dc3 /tests
parentf0284298add52f9e6804e1d3e53c4e67fcfbc1c3 (diff)
parentc3e063b0aa8200f75aef7612fe3d63d09796ad67 (diff)
downloadtcl-8f37d5c24ef176d5df911feafb5f8159098a5cc2.zip
tcl-8f37d5c24ef176d5df911feafb5f8159098a5cc2.tar.gz
tcl-8f37d5c24ef176d5df911feafb5f8159098a5cc2.tar.bz2
Merge 8.6
Diffstat (limited to 'tests')
-rw-r--r--tests/encoding.test15
1 files changed, 10 insertions, 5 deletions
diff --git a/tests/encoding.test b/tests/encoding.test
index 83e75be..81323f4 100644
--- a/tests/encoding.test
+++ b/tests/encoding.test
@@ -534,7 +534,7 @@ test encoding-16.17 {Utf32ToUtfProc} -body {
list [encoding convertfrom -strict -failindex idx utf-32le \x41\x00\x00\x00\x00\xD8\x00\x00\x42\x00\x00\x00] [set idx]
} -result {A 4}
-test encoding-16.9 {
+test encoding-16.18 {
Utf16ToUtfProc, Tcl_UniCharToUtf, surrogate pairs in utf-16
} -body {
apply [list {} {
@@ -553,10 +553,15 @@ test encoding-16.9 {
return done
} [namespace current]]
} -result done
-
-
-
-
+test encoding-16.19 {UnicodeToUtfProc, bug [d19fe0a5b]} -body {
+ encoding convertfrom utf-16 "\x41\x41\x41"
+} -result \u4141\uFFFD
+test encoding-16.20 {UnicodeToUtfProc, bug [d19fe0a5b]} -constraints deprecated -body {
+ encoding convertfrom utf-16 "\xD8\xD8"
+} -result \uD8D8
+test encoding-16.21 {UnicodeToUtfProc, bug [d19fe0a5b]} -body {
+ encoding convertfrom utf-32 "\x00\x00\x00\x00\x41\x41"
+} -result \x00\uFFFD
test encoding-17.1 {UtfToUtf16Proc} -body {
encoding convertto utf-16 "\U460DC"