summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2019-12-07 18:23:41 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2019-12-07 18:23:41 (GMT)
commitbf4f51ce7866dc5c5ce3acf483636f7a281e3d18 (patch)
tree464d1353f76bbcf18f5336e225878ff3afe97cec /tests
parentf67bef714e0e58aec5b6050f7ff17d878011c689 (diff)
downloadtcl-bf4f51ce7866dc5c5ce3acf483636f7a281e3d18.zip
tcl-bf4f51ce7866dc5c5ce3acf483636f7a281e3d18.tar.gz
tcl-bf4f51ce7866dc5c5ce3acf483636f7a281e3d18.tar.bz2
Fix 2 test-cases, which were failing when TCL_UTF_MAX=6. Add UTF_MAX=6 UNIX build to Travis as proof that now all test-cases pass for UTF_MAX=6 (still not officially supported)
Diffstat (limited to 'tests')
-rw-r--r--tests/encoding.test8
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/encoding.test b/tests/encoding.test
index 15aba11..b11c731 100644
--- a/tests/encoding.test
+++ b/tests/encoding.test
@@ -331,13 +331,13 @@ test encoding-15.3 {UtfToUtfProc null character input} {
test encoding-15.4 {UtfToUtfProc emoji character input} {
set x \xED\xA0\xBD\xED\xB8\x82
set y [encoding convertfrom utf-8 \xED\xA0\xBD\xED\xB8\x82]
- list [string length $x] [string length $y] $y
-} "6 2 \uD83D\uDE02"
+ list [string length $x] $y
+} "6 \uD83D\uDE02"
test encoding-15.5 {UtfToUtfProc emoji character input} {
set x \xF0\x9F\x98\x82
set y [encoding convertfrom utf-8 \xF0\x9F\x98\x82]
- list [string length $x] [string length $y] $y
-} "4 2 \uD83D\uDE02"
+ list [string length $x] $y
+} "4 \uD83D\uDE02"
test encoding-15.6 {UtfToUtfProc emoji character output} {
set x \uDE02\uD83D\uDE02\uD83D
set y [encoding convertto utf-8 \uDE02\uD83D\uDE02\uD83D]