summaryrefslogtreecommitdiffstats
path: root/tests/encoding.test
diff options
context:
space:
mode:
authorapnadkarni <apnmbx-wits@yahoo.com>2023-03-10 15:29:36 (GMT)
committerapnadkarni <apnmbx-wits@yahoo.com>2023-03-10 15:29:36 (GMT)
commit93160df498eb629935da979414226551ea78d735 (patch)
tree4dc8db6dbd52fc056e7542cafc1ecf399ed5a3fd /tests/encoding.test
parente9b9864f5680ac7c8b219468d057238c4172f825 (diff)
parent494b4c8127e703f7b20f85dbb342921e36a8b557 (diff)
downloadtcl-93160df498eb629935da979414226551ea78d735.zip
tcl-93160df498eb629935da979414226551ea78d735.tar.gz
tcl-93160df498eb629935da979414226551ea78d735.tar.bz2
Merged 9.0. Note knownProfileBug constraint which mark questionable tests to be resolved later.
Diffstat (limited to 'tests/encoding.test')
-rw-r--r--tests/encoding.test8
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/encoding.test b/tests/encoding.test
index 8044c8c..8ed7c1d 100644
--- a/tests/encoding.test
+++ b/tests/encoding.test
@@ -514,6 +514,8 @@ test encoding-16.7 {Utf32ToUtfProc} -body {
test encoding-16.8 {Utf32ToUtfProc} -body {
set val [encoding convertfrom -profile tcl8 utf-32 \x41\x00\x00\x41]
list $val [format %x [scan $val %c]]
+} -constraints {
+ encodingProfileTodo
} -result "\uFFFD fffd"
test encoding-16.9 {Utf32ToUtfProc} -constraints utf32 -body {
encoding convertfrom utf-32le \x00\xD8\x00\x00
@@ -605,6 +607,8 @@ test encoding-17.10 {Utf32ToUtfProc} -body {
test encoding-18.1 {TableToUtfProc on invalid input} -body {
list [catch {encoding convertto jis0208 \\} res] $res
+} -constraints {
+ encodingProfileTodo
} -result {1 {unexpected character at index 0: 'U+00005C'}}
test encoding-18.2 {TableToUtfProc on invalid input with -profile strict} -body {
list [catch {encoding convertto -profile strict jis0208 \\} res] $res
@@ -794,6 +798,8 @@ test encoding-24.18 {Parse valid or invalid utf-8} -constraints testbytestring -
} -result "Z\xC3\xA0\xE2\x82\xACxxxxxx"
test encoding-24.19 {Parse valid or invalid utf-8} -body {
encoding convertto utf-8 "ZX\uD800"
+} -constraints {
+ encodingProfileTodo
} -returnCodes 1 -match glob -result "unexpected character at index 2: 'U+00D800'"
test encoding-24.20 {Parse with -profile tcl8 but without providing encoding} -body {
encoding convertfrom -profile tcl8 "\x20"
@@ -851,6 +857,8 @@ test encoding-24.37 {Parse invalid utf-8 with -profile tcl8} -body {
} -result \uD800
test encoding-24.38 {Try to generate invalid utf-8} -body {
encoding convertto utf-8 \uD800
+} -constraints {
+ encodingProfileTodo
} -returnCodes 1 -result {unexpected character at index 0: 'U+00D800'}
test encoding-24.39 {Try to generate invalid utf-8 with -profile strict} -body {
encoding convertto -profile strict utf-8 \uD800