summaryrefslogtreecommitdiffstats
path: root/tests/encoding.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2019-03-08 22:51:16 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2019-03-08 22:51:16 (GMT)
commite6a53eb44dab26c44e01f4620467c2c5ae0f27e5 (patch)
tree59277fc50a99e395168027e1ffa8bbe0be18a7cb /tests/encoding.test
parente30b8a9185f7d16573e849b3df2ec1d1791439ea (diff)
parent2b821c69deba46a4f4634dbbfa6b5b34b6036f9c (diff)
downloadtcl-e6a53eb44dab26c44e01f4620467c2c5ae0f27e5.zip
tcl-e6a53eb44dab26c44e01f4620467c2c5ae0f27e5.tar.gz
tcl-e6a53eb44dab26c44e01f4620467c2c5ae0f27e5.tar.bz2
Merge 8.7
Diffstat (limited to 'tests/encoding.test')
-rw-r--r--tests/encoding.test7
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"