diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-12-07 18:23:41 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-12-07 18:23:41 (GMT) |
commit | bf4f51ce7866dc5c5ce3acf483636f7a281e3d18 (patch) | |
tree | 464d1353f76bbcf18f5336e225878ff3afe97cec /tests | |
parent | f67bef714e0e58aec5b6050f7ff17d878011c689 (diff) | |
download | tcl-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.test | 8 |
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] |