diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-03-08 22:51:16 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-03-08 22:51:16 (GMT) |
commit | e6a53eb44dab26c44e01f4620467c2c5ae0f27e5 (patch) | |
tree | 59277fc50a99e395168027e1ffa8bbe0be18a7cb /tests/encoding.test | |
parent | e30b8a9185f7d16573e849b3df2ec1d1791439ea (diff) | |
parent | 2b821c69deba46a4f4634dbbfa6b5b34b6036f9c (diff) | |
download | tcl-e6a53eb44dab26c44e01f4620467c2c5ae0f27e5.zip tcl-e6a53eb44dab26c44e01f4620467c2c5ae0f27e5.tar.gz tcl-e6a53eb44dab26c44e01f4620467c2c5ae0f27e5.tar.bz2 |
Merge 8.7
Diffstat (limited to 'tests/encoding.test')
-rw-r--r-- | tests/encoding.test | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/tests/encoding.test b/tests/encoding.test index ab60617..4736928 100644 --- a/tests/encoding.test +++ b/tests/encoding.test @@ -36,7 +36,6 @@ proc runtests {} { testConstraint testencoding [llength [info commands testencoding]] testConstraint testbytestring [llength [info commands testbytestring]] testConstraint teststringbytes [llength [info commands teststringbytes]] -testConstraint tip389 [expr {[string length \U010000] == 2}] testConstraint exec [llength [info commands exec]] testConstraint testgetencpath [llength [info commands testgetencpath]] @@ -323,16 +322,16 @@ test encoding-15.3 {UtfToUtfProc null character input} teststringbytes { set z } c080 -test encoding-16.1 {UnicodeToUtfProc} -constraints tip389 -body { +test encoding-16.1 {UnicodeToUtfProc} -body { set val [encoding convertfrom unicode NN] list $val [format %x [scan $val %c]] } -result "\u4e4e 4e4e" -test encoding-16.2 {UnicodeToUtfProc} -constraints tip389 -body { +test encoding-16.2 {UnicodeToUtfProc} -body { set val [encoding convertfrom unicode "\xd8\xd8\xdc\xdc"] list $val [format %x [scan $val %c]] } -result "\U460dc 460dc" -test encoding-17.1 {UtfToUnicodeProc} -constraints tip389 -body { +test encoding-17.1 {UtfToUnicodeProc} -body { encoding convertto unicode "\U460dc" } -result "\xd8\xd8\xdc\xdc" |