summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2020-05-07 18:36:25 (GMT)
committerdgp <dgp@users.sourceforge.net>2020-05-07 18:36:25 (GMT)
commit6d36267ee03ebbf37b1843d0602220bbc299f8e9 (patch)
treee74b8a8de1d5417dd98541a99d190782f2a615ba
parent8fc378853391cde228bf25c1491e9ba02ebf0f2c (diff)
downloadtcl-6d36267ee03ebbf37b1843d0602220bbc299f8e9.zip
tcl-6d36267ee03ebbf37b1843d0602220bbc299f8e9.tar.gz
tcl-6d36267ee03ebbf37b1843d0602220bbc299f8e9.tar.bz2
split and constrain the failing test.
-rw-r--r--tests/encoding.test7
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/encoding.test b/tests/encoding.test
index 552c97f..84f9ae1 100644
--- a/tests/encoding.test
+++ b/tests/encoding.test
@@ -335,7 +335,12 @@ test encoding-15.4 {UtfToUtfProc emoji character input} -body {
set y [encoding convertfrom utf-8 \xED\xA0\xBD\xED\xB8\x82]
list [string length $x] $y
} -result "6 \uD83D\uDE02"
-test encoding-15.5 {UtfToUtfProc emoji character input} {
+test encoding-15.5.0 {UtfToUtfProc emoji character input} ucs2 {
+ set x \xF0\x9F\x98\x82
+ set y [encoding convertfrom utf-8 \xF0\x9F\x98\x82]
+ list [string length $x] $y
+} "4 \xF0\x9F\x98\x82"
+test encoding-15.5.1 {UtfToUtfProc emoji character input} fullutf {
set x \xF0\x9F\x98\x82
set y [encoding convertfrom utf-8 \xF0\x9F\x98\x82]
list [string length $x] $y