summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2023-02-16 21:14:24 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2023-02-16 21:14:24 (GMT)
commita3f58db271d9f90d1eeba9e348cb8f7295789a81 (patch)
tree7918a89a9e3df1b4cdbcb2aca9b418b8840bc391 /tests
parent7fb1760f4248b894ca15c65562800b98c5e08b2e (diff)
parent2c3252bc5c0a80e90ade82389f8b80faa41a6e77 (diff)
downloadtcl-a3f58db271d9f90d1eeba9e348cb8f7295789a81.zip
tcl-a3f58db271d9f90d1eeba9e348cb8f7295789a81.tar.gz
tcl-a3f58db271d9f90d1eeba9e348cb8f7295789a81.tar.bz2
Merge 8.7
Diffstat (limited to 'tests')
-rw-r--r--tests/encoding.test18
1 files changed, 12 insertions, 6 deletions
diff --git a/tests/encoding.test b/tests/encoding.test
index 4cf2e4c..ed41937 100644
--- a/tests/encoding.test
+++ b/tests/encoding.test
@@ -460,17 +460,20 @@ test encoding-15.26 {UtfToUtfProc CESU-8} {
encoding convertfrom cesu-8 \xC0\x80
} \x00
test encoding-15.27 {UtfToUtfProc -strict CESU-8} {
- encoding convertfrom -strict cesu-8 \xC0\x80
+ encoding convertfrom -strict cesu-8 \x00
} \x00
-test encoding-15.28 {UtfToUtfProc -strict CESU-8} {
+test encoding-15.28 {UtfToUtfProc -strict CESU-8} -body {
encoding convertfrom -strict cesu-8 \xC0\x80
-} \x00
+} -returnCodes 1 -result {unexpected byte sequence starting at index 0: '\xC0'}
test encoding-15.29 {UtfToUtfProc CESU-8} {
encoding convertto cesu-8 \x00
-} \xC0\x80
+} \x00
test encoding-15.30 {UtfToUtfProc -strict CESU-8} {
encoding convertto -strict cesu-8 \x00
-} \xC0\x80
+} \x00
+test encoding-15.31 {UtfToUtfProc -strict CESU-8 (bytes F0-F4 are invalid)} -body {
+ encoding convertfrom -strict cesu-8 \xF1\x86\x83\x9C
+} -returnCodes 1 -result {unexpected byte sequence starting at index 0: '\xF1'}
test encoding-16.1 {Utf16ToUtfProc} -body {
set val [encoding convertfrom utf-16 NN]
@@ -618,9 +621,12 @@ test encoding-19.3 {TableFromUtfProc} -body {
test encoding-19.4 {TableFromUtfProc} -body {
list [encoding convertfrom -failindex idx ascii AÁ] [set idx]
} -result {A 1}
-test encoding-19.4 {TableFromUtfProc} -body {
+test encoding-19.5 {TableFromUtfProc} -body {
list [encoding convertfrom -failindex idx -strict ascii AÁ] [set idx]
} -result {A 1}
+test encoding-19.6 {TableFromUtfProc} -body {
+ list [encoding convertfrom -failindex idx -strict ascii AÁB] [set idx]
+} -result {A 1}
test encoding-20.1 {TableFreefProc} {
} {}