Merge 8.6

1 files changed, 2 insertions, 12 deletions

diff --git a/tests/encoding.test b/tests/encoding.test
index 0a3597a..664a041 100644
--- a/tests/encoding.test
+++ b/tests/encoding.test
@@ -33,7 +33,6 @@ proc runtests {} {
     variable x
 
 # Some tests require the testencoding command
-testConstraint testbytestring [llength [info commands testbytestring]]
 testConstraint testencoding [llength [info commands testencoding]]
 testConstraint testbytestring [llength [info commands testbytestring]]
 testConstraint teststringbytes [llength [info commands teststringbytes]]
@@ -317,18 +316,9 @@ test encoding-15.2 {UtfToUtfProc null character output} testbytestring {
     binary scan [testbytestring [encoding convertto utf-8 \u0000]] H* z
     set z
 } 00
-test encoding-15.3.a {UtfToUtfProc null character input} testbytestring {
-    binary scan [testbytestring \xc0\x80] H* z
-    set z
-} 00
-test encoding-15.3.b {UtfToUtfProc null character input} testbytestring {
-    set y [encoding convertfrom utf-8 [encoding convertto utf-8 \u0000]]
-    binary scan [testbytestring $y] H* z
-    set z
-} 00
-test encoding-15.3.c {UtfToUtfProc null character input} {
+test encoding-15.3 {UtfToUtfProc null character input} teststringbytes {
     set y [encoding convertfrom utf-8 [encoding convertto utf-8 \u0000]]
-    binary scan [encoding convertto identity $y] H* z
+    binary scan [teststringbytes $y] H* z
     set z
 } c080
 test encoding-15.4 {UtfToUtfProc emoji character input} -body {