summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2021-04-16 20:45:56 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2021-04-16 20:45:56 (GMT)
commit82d0339a6592bd7855cc08df656c252dda1352c5 (patch)
treecfaa7e2e7bcdc18bcc77ef146ecee018800e598b /tests
parent3c9c7e062138b5f21935974d667eec0ae10c346c (diff)
downloadtcl-82d0339a6592bd7855cc08df656c252dda1352c5.zip
tcl-82d0339a6592bd7855cc08df656c252dda1352c5.tar.gz
tcl-82d0339a6592bd7855cc08df656c252dda1352c5.tar.bz2
renumber testcases
Diffstat (limited to 'tests')
-rw-r--r--tests/encoding.test54
1 files changed, 27 insertions, 27 deletions
diff --git a/tests/encoding.test b/tests/encoding.test
index 82a2d6b..e1c55d7 100644
--- a/tests/encoding.test
+++ b/tests/encoding.test
@@ -338,77 +338,77 @@ test encoding-15.5 {UtfToUtfProc emoji character input} {
set y [encoding convertfrom utf-8 \xF0\x9F\x98\x82]
list [string length $x] $y
} "4 😂"
-test encoding-15.6 {UtfToUtfProc: Invalid 4-byte UTF-8, see [ed29806ba]} {
- set x \xF0\xA0\xA1\xC2
- set y [encoding convertfrom utf-8 \xF0\xA0\xA1\xC2]
- list [string length $x] $y
-} "4 \xF0\xA0\xA1\xC2"
-test encoding-15.7 {UtfToUtfProc emoji character output} {
- set x 😂
- set y [encoding convertto utf-8 😂]
- binary scan $y H* z
- list [string length $y] $z
-} {4 f09f9882}
-test encoding-15.8 {UtfToUtfProc emoji character output} {
+test encoding-15.6 {UtfToUtfProc emoji character output} {
set x \uDE02\uD83D\uDE02\uD83D
set y [encoding convertto utf-8 \uDE02\uD83D\uDE02\uD83D]
binary scan $y H* z
list [string length $y] $z
} {10 efbfbdf09f9882efbfbd}
-test encoding-15.9 {UtfToUtfProc emoji character output} {
+test encoding-15.7 {UtfToUtfProc emoji character output} {
set x \uDE02\uD83D\uD83D
set y [encoding convertto utf-8 \uDE02\uD83D\uD83D]
binary scan $y H* z
list [string length $x] [string length $y] $z
} {3 9 efbfbdefbfbdefbfbd}
-test encoding-15.10 {UtfToUtfProc emoji character output} {
- set x \uDE02\uD83D\xE9
- set y [encoding convertto utf-8 \uDE02\uD83D\xE9]
+test encoding-15.8 {UtfToUtfProc emoji character output} {
+ set x \uDE02\uD83Dé
+ set y [encoding convertto utf-8 \uDE02\uD83Dé]
binary scan $y H* z
list [string length $x] [string length $y] $z
} {3 8 efbfbdefbfbdc3a9}
-test encoding-15.11 {UtfToUtfProc emoji character output} {
+test encoding-15.9 {UtfToUtfProc emoji character output} {
set x \uDE02\uD83DX
set y [encoding convertto utf-8 \uDE02\uD83DX]
binary scan $y H* z
list [string length $x] [string length $y] $z
} {3 7 efbfbdefbfbd58}
-test encoding-15.12 {UtfToUtfProc high surrogate character output} {
- set x \uDE02\xE9
- set y [encoding convertto utf-8 \uDE02\xE9]
+test encoding-15.10 {UtfToUtfProc high surrogate character output} {
+ set x \uDE02é
+ set y [encoding convertto utf-8 \uDE02é]
binary scan $y H* z
list [string length $x] [string length $y] $z
} {2 5 efbfbdc3a9}
-test encoding-15.13 {UtfToUtfProc low surrogate character output} {
- set x \uDA02\xE9
- set y [encoding convertto utf-8 \uDA02\xE9]
+test encoding-15.11 {UtfToUtfProc low surrogate character output} {
+ set x \uDA02é
+ set y [encoding convertto utf-8 \uDA02é]
binary scan $y H* z
list [string length $x] [string length $y] $z
} {2 5 efbfbdc3a9}
-test encoding-15.14 {UtfToUtfProc high surrogate character output} {
+test encoding-15.12 {UtfToUtfProc high surrogate character output} {
set x \uDE02Y
set y [encoding convertto utf-8 \uDE02Y]
binary scan $y H* z
list [string length $x] [string length $y] $z
} {2 4 efbfbd59}
-test encoding-15.15 {UtfToUtfProc low surrogate character output} {
+test encoding-15.13 {UtfToUtfProc low surrogate character output} {
set x \uDA02Y
set y [encoding convertto utf-8 \uDA02Y]
binary scan $y H* z
list [string length $x] [string length $y] $z
} {2 4 efbfbd59}
-test encoding-15.16 {UtfToUtfProc high surrogate character output} {
+test encoding-15.14 {UtfToUtfProc high surrogate character output} {
set x \uDE02
set y [encoding convertto utf-8 \uDE02]
binary scan $y H* z
list [string length $x] [string length $y] $z
} {1 3 efbfbd}
-test encoding-15.17 {UtfToUtfProc low surrogate character output} {
+test encoding-15.15 {UtfToUtfProc low surrogate character output} {
set x \uDA02
set y [encoding convertto utf-8 \uDA02]
binary scan $y H* z
list [string length $x] [string length $y] $z
} {1 3 efbfbd}
+test encoding-15.16 {UtfToUtfProc: Invalid 4-byte UTF-8, see [ed29806ba]} {
+ set x \xF0\xA0\xA1\xC2
+ set y [encoding convertfrom utf-8 \xF0\xA0\xA1\xC2]
+ list [string length $x] $y
+} "4 \xF0\xA0\xA1\xC2"
+test encoding-15.17 {UtfToUtfProc emoji character output} {
+ set x 😂
+ set y [encoding convertto utf-8 😂]
+ binary scan $y H* z
+ list [string length $y] $z
+} {4 f09f9882}
test encoding-15.18 {UtfToUtfProc CESU-8 6-byte sequence} {
set y [encoding convertto cesu-8 \U10000]
binary scan $y H* z