Backport testutfprev/testutfnex testcase improvements from 8.7. This makes testdescriptions/testresults more equal among branches, so the real differences are more visible.

1 files changed, 504 insertions, 510 deletions

diff --git a/tests/utf.test b/tests/utf.test
index 0b2d368..8aa3757 100644
--- a/tests/utf.test
+++ b/tests/utf.test
@@ -183,451 +183,451 @@ test utf-5.2 {Tcl_UtfFindLast} {testfindlast testbytestring} {
     testfindlast [testbytestring abcbc] 98
 } bc
 
-test utf-6.1 {Tcl_UtfNext} testutfnext {
+test utf-6.1 {Tcl_UtfNext} {testutfnext testbytestring} {
     # This takes the pointer one past the terminating NUL.
     # This is really an invalid call.
     testutfnext {}
 } 1
-test utf-6.2 {Tcl_UtfNext} testutfnext {
+test utf-6.2 {Tcl_UtfNext} {testutfnext testbytestring} {
     testutfnext A
 } 1
-test utf-6.3 {Tcl_UtfNext} testutfnext {
+test utf-6.3 {Tcl_UtfNext} {testutfnext testbytestring} {
     testutfnext AA
 } 1
-test utf-6.4 {Tcl_UtfNext} testutfnext {
-    testutfnext A\xA0
+test utf-6.4 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext A[testbytestring \xA0]
 } 1
-test utf-6.5 {Tcl_UtfNext} testutfnext {
-    testutfnext A\xD0
+test utf-6.5 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext A[testbytestring \xD0]
 } 1
-test utf-6.6 {Tcl_UtfNext} testutfnext {
-    testutfnext A\xE8
+test utf-6.6 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext A[testbytestring \xE8]
 } 1
-test utf-6.7 {Tcl_UtfNext} testutfnext {
-    testutfnext A\xF2
+test utf-6.7 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext A[testbytestring \xF2]
 } 1
-test utf-6.8 {Tcl_UtfNext} testutfnext {
-    testutfnext A\xF8
+test utf-6.8 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext A[testbytestring \xF8]
 } 1
-test utf-6.9 {Tcl_UtfNext} testutfnext {
-    testutfnext \xA0
+test utf-6.9 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xA0]
 } 1
-test utf-6.10 {Tcl_UtfNext} testutfnext {
-    testutfnext \xA0G
+test utf-6.10 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xA0]G
 } 1
-test utf-6.11 {Tcl_UtfNext} testutfnext {
-    testutfnext \xA0\xA0
+test utf-6.11 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xA0\xA0]
 } 1
-test utf-6.12 {Tcl_UtfNext} testutfnext {
-    testutfnext \xA0\xD0
+test utf-6.12 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xA0\xD0]
 } 1
-test utf-6.13 {Tcl_UtfNext} testutfnext {
-    testutfnext \xA0\xE8
+test utf-6.13 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xA0\xE8]
 } 1
-test utf-6.14 {Tcl_UtfNext} testutfnext {
-    testutfnext \xA0\xF2
+test utf-6.14 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xA0\xF2]
 } 1
-test utf-6.15 {Tcl_UtfNext} testutfnext {
-    testutfnext \xA0\xF8
+test utf-6.15 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xA0\xF8]
 } 1
-test utf-6.16 {Tcl_UtfNext} testutfnext {
-    testutfnext \xD0
+test utf-6.16 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xD0\x00]
 } 1
-test utf-6.17 {Tcl_UtfNext} testutfnext {
-    testutfnext \xD0G
+test utf-6.17 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xD0]G
 } 1
-test utf-6.18 {Tcl_UtfNext} testutfnext {
-    testutfnext \xD0\xA0
+test utf-6.18 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xD0\xA0]
 } 2
-test utf-6.19 {Tcl_UtfNext} testutfnext {
-    testutfnext \xD0\xD0
+test utf-6.19 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xD0\xD0]
 } 1
-test utf-6.20 {Tcl_UtfNext} testutfnext {
-    testutfnext \xD0\xE8
+test utf-6.20 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xD0\xE8]
 } 1
-test utf-6.21 {Tcl_UtfNext} testutfnext {
-    testutfnext \xD0\xF2
+test utf-6.21 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xD0\xF2]
 } 1
-test utf-6.22 {Tcl_UtfNext} testutfnext {
-    testutfnext \xD0\xF8
+test utf-6.22 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xD0\xF8]
 } 1
-test utf-6.23 {Tcl_UtfNext} testutfnext {
-    testutfnext \xE8
+test utf-6.23 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xE8]
 } 1
-test utf-6.24 {Tcl_UtfNext} testutfnext {
-    testutfnext \xE8G
+test utf-6.24 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xE8]G
 } 1
-test utf-6.25 {Tcl_UtfNext} testutfnext {
-    testutfnext \xE8\xA0
+test utf-6.25 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xE8\xA0\x00]
 } 1
-test utf-6.26 {Tcl_UtfNext} testutfnext {
-    testutfnext \xE8\xD0
+test utf-6.26 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xE8\xD0]
 } 1
-test utf-6.27 {Tcl_UtfNext} testutfnext {
-    testutfnext \xE8\xE8
+test utf-6.27 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xE8\xE8]
 } 1
-test utf-6.28 {Tcl_UtfNext} testutfnext {
-    testutfnext \xE8\xF2
+test utf-6.28 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xE8\xF2]
 } 1
-test utf-6.29 {Tcl_UtfNext} testutfnext {
-    testutfnext \xE8\xF8
+test utf-6.29 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xE8\xF8]
 } 1
-test utf-6.30 {Tcl_UtfNext} testutfnext {
-    testutfnext \xF2
+test utf-6.30 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xF2]
 } 1
-test utf-6.31 {Tcl_UtfNext} testutfnext {
-    testutfnext \xF2G
+test utf-6.31 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xF2]G
 } 1
-test utf-6.32 {Tcl_UtfNext} testutfnext {
-    testutfnext \xF2\xA0
+test utf-6.32 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xF2\xA0]
 } 1
-test utf-6.33 {Tcl_UtfNext} testutfnext {
-    testutfnext \xF2\xD0
+test utf-6.33 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xF2\xD0]
 } 1
-test utf-6.34 {Tcl_UtfNext} testutfnext {
-    testutfnext \xF2\xE8
+test utf-6.34 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xF2\xE8]
 } 1
-test utf-6.35 {Tcl_UtfNext} testutfnext {
-    testutfnext \xF2\xF2
+test utf-6.35 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xF2\xF2]
 } 1
-test utf-6.36 {Tcl_UtfNext} testutfnext {
-    testutfnext \xF2\xF8
+test utf-6.36 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xF2\xF8]
 } 1
-test utf-6.37 {Tcl_UtfNext} testutfnext {
-    testutfnext \xF8
+test utf-6.37 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xF8]
 } 1
-test utf-6.38 {Tcl_UtfNext} testutfnext {
-    testutfnext \xF8G
+test utf-6.38 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xF8]G
 } 1
-test utf-6.39 {Tcl_UtfNext} testutfnext {
-    testutfnext \xF8\xA0
+test utf-6.39 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xF8\xA0]
 } 1
-test utf-6.40 {Tcl_UtfNext} testutfnext {
-    testutfnext \xF8\xD0
+test utf-6.40 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xF8\xD0]
 } 1
-test utf-6.41 {Tcl_UtfNext} testutfnext {
-    testutfnext \xF8\xE8
+test utf-6.41 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xF8\xE8]
 } 1
-test utf-6.42 {Tcl_UtfNext} testutfnext {
-    testutfnext \xF8\xF2
+test utf-6.42 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xF8\xF2]
 } 1
-test utf-6.43 {Tcl_UtfNext} testutfnext {
-    testutfnext \xF8\xF8
+test utf-6.43 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xF8\xF8]
 } 1
-test utf-6.44 {Tcl_UtfNext} testutfnext {
-    testutfnext \xD0\xA0G
+test utf-6.44 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xD0\xA0]G
 } 2
-test utf-6.45 {Tcl_UtfNext} testutfnext {
-    testutfnext \xD0\xA0\xA0
+test utf-6.45 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xD0\xA0\xA0]
 } 2
-test utf-6.46 {Tcl_UtfNext} testutfnext {
-    testutfnext \xD0\xA0\xD0
+test utf-6.46 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xD0\xA0\xD0]
 } 2
-test utf-6.47 {Tcl_UtfNext} testutfnext {
-    testutfnext \xD0\xA0\xE8
+test utf-6.47 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xD0\xA0\xE8]
 } 2
-test utf-6.48 {Tcl_UtfNext} testutfnext {
-    testutfnext \xD0\xA0\xF2
+test utf-6.48 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xD0\xA0\xF2]
 } 2
-test utf-6.49 {Tcl_UtfNext} testutfnext {
-    testutfnext \xD0\xA0\xF8
+test utf-6.49 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xD0\xA0\xF8]
 } 2
-test utf-6.50 {Tcl_UtfNext} testutfnext {
-    testutfnext \xE8\xA0G
+test utf-6.50 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xE8\xA0]G
 } 1
 test utf-6.51 {Tcl_UtfNext} testutfnext {
-    testutfnext \xE8\xA0\xA0
+    testutfnext \u8820
 } 3
-test utf-6.52 {Tcl_UtfNext} testutfnext {
-    testutfnext \xE8\xA0\xD0
+test utf-6.52 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xE8\xA0\xD0]
 } 1
-test utf-6.53 {Tcl_UtfNext} testutfnext {
-    testutfnext \xE8\xA0\xE8
+test utf-6.53 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xE8\xA0\xE8]
 } 1
-test utf-6.54 {Tcl_UtfNext} testutfnext {
-    testutfnext \xE8\xA0\xF2
+test utf-6.54 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xE8\xA0\xF2]
 } 1
-test utf-6.55 {Tcl_UtfNext} testutfnext {
-    testutfnext \xE8\xA0\xF8
+test utf-6.55 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xE8\xA0\xF8]
 } 1
-test utf-6.56 {Tcl_UtfNext} testutfnext {
-    testutfnext \xF2\xA0G
+test utf-6.56 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xF2\xA0]G
 } 1
-test utf-6.57 {Tcl_UtfNext} testutfnext {
-    testutfnext \xF2\xA0\xA0
+test utf-6.57 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xF2\xA0\xA0\x00]
 } 1
-test utf-6.58 {Tcl_UtfNext} testutfnext {
-    testutfnext \xF2\xA0\xD0
+test utf-6.58 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xF2\xA0\xD0]
 } 1
-test utf-6.59 {Tcl_UtfNext} testutfnext {
-    testutfnext \xF2\xA0\xE8
+test utf-6.59 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xF2\xA0\xE8]
 } 1
-test utf-6.60 {Tcl_UtfNext} testutfnext {
-    testutfnext \xF2\xA0\xF2
+test utf-6.60 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xF2\xA0\xF2]
 } 1
-test utf-6.61 {Tcl_UtfNext} testutfnext {
-    testutfnext \xF2\xA0\xF8
+test utf-6.61 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xF2\xA0\xF8]
 } 1
 test utf-6.62 {Tcl_UtfNext} testutfnext {
-    testutfnext \xE8\xA0\xA0G
+    testutfnext \u8820G
 } 3
-test utf-6.63 {Tcl_UtfNext} testutfnext {
-    testutfnext \xE8\xA0\xA0\xA0
+test utf-6.63 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext \u8820[testbytestring \xA0]
 } 3
-test utf-6.64 {Tcl_UtfNext} testutfnext {
-    testutfnext \xE8\xA0\xA0\xD0
+test utf-6.64 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext \u8820[testbytestring \xD0]
 } 3
-test utf-6.65 {Tcl_UtfNext} testutfnext {
-    testutfnext \xE8\xA0\xA0\xE8
+test utf-6.65 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext \u8820[testbytestring \xE8]
 } 3
-test utf-6.66 {Tcl_UtfNext} testutfnext {
-    testutfnext \xE8\xA0\xA0\xF2
+test utf-6.66 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext \u8820[testbytestring \xF2]
 } 3
-test utf-6.67 {Tcl_UtfNext} testutfnext {
-    testutfnext \xE8\xA0\xA0\xF8
+test utf-6.67 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext \u8820[testbytestring \xF8]
 } 3
-test utf-6.68 {Tcl_UtfNext} testutfnext {
-    testutfnext \xF2\xA0\xA0G
+test utf-6.68 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xF2\xA0\xA0]G
 } 1
-test utf-6.69.0 {Tcl_UtfNext} {testutfnext ucs2} {
-    testutfnext \xF2\xA0\xA0\xA0
+test utf-6.69.0 {Tcl_UtfNext} {testutfnext testbytestring ucs2} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xA0]
 } 1
-test utf-6.69.1 {Tcl_UtfNext} {testutfnext fullutf} {
-    testutfnext \xF2\xA0\xA0\xA0
+test utf-6.69.1 {Tcl_UtfNext} {testutfnext testbytestring fullutf} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xA0]
 } 4
-test utf-6.70 {Tcl_UtfNext} testutfnext {
-    testutfnext \xF2\xA0\xA0\xD0
+test utf-6.70 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xD0]
 } 1
-test utf-6.71 {Tcl_UtfNext} testutfnext {
-    testutfnext \xF2\xA0\xA0\xE8
+test utf-6.71 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xE8]
 } 1
-test utf-6.72 {Tcl_UtfNext} testutfnext {
-    testutfnext \xF2\xA0\xA0\xF2
+test utf-6.72 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xF2]
 } 1
-test utf-6.73 {Tcl_UtfNext} testutfnext {
-    testutfnext \xF2\xA0\xA0\xF8
+test utf-6.73 {Tcl_UtfNext} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xF8]
 } 1
-test utf-6.74.0 {Tcl_UtfNext} {testutfnext ucs2} {
-    testutfnext \xF2\xA0\xA0\xA0G
+test utf-6.74.0 {Tcl_UtfNext} {testutfnext testbytestring ucs2} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xA0]G
 } 1
-test utf-6.74.1 {Tcl_UtfNext} {testutfnext fullutf} {
-    testutfnext \xF2\xA0\xA0\xA0G
+test utf-6.74.1 {Tcl_UtfNext} {testutfnext testbytestring fullutf} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xA0]G
 } 4
-test utf-6.75.0 {Tcl_UtfNext} {testutfnext ucs2} {
-    testutfnext \xF2\xA0\xA0\xA0\xA0
+test utf-6.75.0 {Tcl_UtfNext} {testutfnext testbytestring ucs2} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xA0\xA0]
 } 1
-test utf-6.75.1 {Tcl_UtfNext} {testutfnext fullutf} {
-    testutfnext \xF2\xA0\xA0\xA0\xA0
+test utf-6.75.1 {Tcl_UtfNext} {testutfnext testbytestring fullutf} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xA0\xA0]
 } 4
-test utf-6.76.0 {Tcl_UtfNext} {testutfnext ucs2} {
-    testutfnext \xF2\xA0\xA0\xA0\xD0
+test utf-6.76.0 {Tcl_UtfNext} {testutfnext testbytestring ucs2} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xA0\xD0]
 } 1
-test utf-6.76.1 {Tcl_UtfNext} {testutfnext fullutf} {
-    testutfnext \xF2\xA0\xA0\xA0\xD0
+test utf-6.76.1 {Tcl_UtfNext} {testutfnext testbytestring fullutf} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xA0\xD0]
 } 4
-test utf-6.77.0 {Tcl_UtfNext} {testutfnext ucs2} {
-    testutfnext \xF2\xA0\xA0\xA0\xE8
+test utf-6.77.0 {Tcl_UtfNext} {testutfnext testbytestring ucs2} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xA0\xE8]
 } 1
-test utf-6.77.1 {Tcl_UtfNext} {testutfnext fullutf} {
-    testutfnext \xF2\xA0\xA0\xA0\xE8
+test utf-6.77.1 {Tcl_UtfNext} {testutfnext testbytestring fullutf} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xA0\xE8]
 } 4
-test utf-6.78.0 {Tcl_UtfNext} {testutfnext ucs2} {
-    testutfnext \xF2\xA0\xA0\xA0\xF2
+test utf-6.78.0 {Tcl_UtfNext} {testutfnext testbytestring ucs2} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xA0\xF2]
 } 1
-test utf-6.78.1 {Tcl_UtfNext} {testutfnext fullutf} {
-    testutfnext \xF2\xA0\xA0\xA0\xF2
+test utf-6.78.1 {Tcl_UtfNext} {testutfnext testbytestring fullutf} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xA0\xF2]
 } 4
-test utf-6.79.0 {Tcl_UtfNext} {testutfnext ucs2} {
-    testutfnext \xF2\xA0\xA0\xA0G\xF8
+test utf-6.79.0 {Tcl_UtfNext} {testutfnext testbytestring ucs2} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xA0G\xF8]
 } 1
-test utf-6.79.1 {Tcl_UtfNext} {testutfnext fullutf} {
-    testutfnext \xF2\xA0\xA0\xA0G\xF8
+test utf-6.79.1 {Tcl_UtfNext} {testutfnext testbytestring fullutf} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xA0G\xF8]
 } 4
-test utf-6.80 {Tcl_UtfNext - overlong sequences} testutfnext {
-    testutfnext \xC0\x80
+test utf-6.80 {Tcl_UtfNext - overlong sequences} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xC0\x80]
 } 2
-test utf-6.81 {Tcl_UtfNext - overlong sequences} testutfnext {
-    testutfnext \xC0\x81
+test utf-6.81 {Tcl_UtfNext - overlong sequences} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xC0\x81]
 } 1
-test utf-6.82 {Tcl_UtfNext - overlong sequences} testutfnext {
-    testutfnext \xC1\x80
+test utf-6.82 {Tcl_UtfNext - overlong sequences} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xC1\x80]
 } 1
-test utf-6.83 {Tcl_UtfNext - overlong sequences} testutfnext {
-    testutfnext \xC2\x80
+test utf-6.83 {Tcl_UtfNext - overlong sequences} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xC2\x80]
 } 2
-test utf-6.84 {Tcl_UtfNext - overlong sequences} testutfnext {
-    testutfnext \xE0\x80\x80
+test utf-6.84 {Tcl_UtfNext - overlong sequences} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xE0\x80\x80]
 } 1
-test utf-6.85 {Tcl_UtfNext - overlong sequences} testutfnext {
-    testutfnext \xE0\xA0\x80
+test utf-6.85 {Tcl_UtfNext - overlong sequences} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xE0\xA0\x80]
 } 3
-test utf-6.86 {Tcl_UtfNext - overlong sequences} testutfnext {
-    testutfnext \xF0\x80\x80\x80
+test utf-6.86 {Tcl_UtfNext - overlong sequences} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xF0\x80\x80\x80]
 } 1
-test utf-6.87.0 {Tcl_UtfNext - overlong sequences} {testutfnext ucs2} {
-    testutfnext \xF0\x90\x80\x80
+test utf-6.87.0 {Tcl_UtfNext - overlong sequences} {testutfnext testbytestring ucs2} {
+    testutfnext [testbytestring \xF0\x90\x80\x80]
 } 1
-test utf-6.87.1 {Tcl_UtfNext - overlong sequences} {testutfnext fullutf} {
-    testutfnext \xF0\x90\x80\x80
+test utf-6.87.1 {Tcl_UtfNext - overlong sequences} {testutfnext testbytestring fullutf} {
+    testutfnext [testbytestring \xF0\x90\x80\x80]
 } 4
-test utf-6.88 {Tcl_UtfNext, pointing to 2th byte of 3-byte valid sequence} testutfnext {
-    testutfnext \xA0\xA0
+test utf-6.88 {Tcl_UtfNext, pointing to 2th byte of 3-byte valid sequence} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xA0\xA0]
 } 1
-test utf-6.89 {Tcl_UtfNext, pointing to 2th byte of 3-byte invalid sequence} testutfnext {
-    testutfnext \x80\x80
+test utf-6.89 {Tcl_UtfNext, pointing to 2th byte of 3-byte invalid sequence} {testutfnext testbytestring} {
+    testutfnext [testbytestring \x80\x80]
 } 1
 test utf-6.90.0 {Tcl_UtfNext, validity check [493dccc2de]} {testutfnext ucs2} {
-    testutfnext \xF4\x8F\xBF\xBF
+    testutfnext [testbytestring \xF4\x8F\xBF\xBF]
 } 1
 test utf-6.90.1 {Tcl_UtfNext, validity check [493dccc2de]} {testutfnext fullutf} {
-    testutfnext \xF4\x8F\xBF\xBF
+    testutfnext [testbytestring \xF4\x8F\xBF\xBF]
 } 4
-test utf-6.91.0 {Tcl_UtfNext, validity check [493dccc2de]} {testutfnext ucs2} {
-    testutfnext \xF4\x90\x80\x80
+test utf-6.91.0 {Tcl_UtfNext, validity check [493dccc2de]} {testutfnext testbytestring ucs2} {
+    testutfnext [testbytestring \xF4\x90\x80\x80]
 } 1
-test utf-6.91.1 {Tcl_UtfNext, validity check [493dccc2de]} {testutfnext fullutf} {
-    testutfnext \xF4\x90\x80\x80
+test utf-6.91.1 {Tcl_UtfNext, validity check [493dccc2de]} {testutfnext testbytestring fullutf} {
+    testutfnext [testbytestring \xF4\x90\x80\x80]
 } 1
-test utf-6.92.0 {Tcl_UtfNext, pointing to 2th byte of 4-byte valid sequence} {testutfnext ucs2} {
-    testutfnext \xA0\xA0\xA0
+test utf-6.92.0 {Tcl_UtfNext, pointing to 2th byte of 4-byte valid sequence} {testutfnext testbytestring ucs2} {
+    testutfnext [testbytestring \xA0\xA0\xA0]
 } 1
-test utf-6.92.1 {Tcl_UtfNext, pointing to 2th byte of 4-byte valid sequence} {testutfnext utf16} {
-    testutfnext \xA0\xA0\xA0
+test utf-6.92.1 {Tcl_UtfNext, pointing to 2th byte of 4-byte valid sequence} {testutfnext testbytestring utf16} {
+    testutfnext [testbytestring \xA0\xA0\xA0]
 } 3
-test utf-6.92.2 {Tcl_UtfNext, pointing to 2th byte of 4-byte valid sequence} {testutfnext ucs4} {
-    testutfnext \xA0\xA0\xA0
+test utf-6.92.2 {Tcl_UtfNext, pointing to 2th byte of 4-byte valid sequence} {testutfnext testbytestring ucs4} {
+    testutfnext [testbytestring \xA0\xA0\xA0]
 } 1
-test utf-6.93.0 {Tcl_UtfNext, pointing to 2th byte of 4-byte invalid sequence} {testutfnext ucs2} {
-    testutfnext \x80\x80\x80
+test utf-6.93.0 {Tcl_UtfNext, pointing to 2th byte of 4-byte invalid sequence} {testutfnext testbytestring ucs2} {
+    testutfnext [testbytestring \x80\x80\x80]
 } 1
-test utf-6.93.1 {Tcl_UtfNext, pointing to 2th byte of 4-byte invalid sequence} {testutfnext utf16} {
-    testutfnext \x80\x80\x80
+test utf-6.93.1 {Tcl_UtfNext, pointing to 2th byte of 4-byte invalid sequence} {testutfnext testbytestring utf16} {
+    testutfnext [testbytestring \x80\x80\x80]
 } 3
-test utf-6.93.2 {Tcl_UtfNext, pointing to 2th byte of 4-byte invalid sequence} {testutfnext ucs4} {
-    testutfnext \x80\x80\x80
+test utf-6.93.2 {Tcl_UtfNext, pointing to 2th byte of 4-byte invalid sequence} {testutfnext testbytestring ucs4} {
+    testutfnext [testbytestring \x80\x80\x80]
 } 1
-test utf-6.94 {Tcl_UtfNext, pointing to 2th byte of 5-byte invalid sequence} {testutfnext ucs2} {
-    testutfnext \xA0\xA0\xA0\xA0
+test utf-6.94 {Tcl_UtfNext, pointing to 2th byte of 5-byte invalid sequence} {testutfnext testbytestring ucs2} {
+    testutfnext [testbytestring \xA0\xA0\xA0\xA0]
 } 1
-test utf-6.95 {Tcl_UtfNext, pointing to 2th byte of 5-byte invalid sequence} {testutfnext ucs2} {
-    testutfnext \x80\x80\x80\x80
+test utf-6.95 {Tcl_UtfNext, pointing to 2th byte of 5-byte invalid sequence} {testutfnext testbytestring ucs2} {
+    testutfnext [testbytestring \x80\x80\x80\x80]
 } 1
-test utf-6.96 {Tcl_UtfNext, read limits} testutfnext {
-    testutfnext G 0
+test utf-6.96 {Tcl_UtfNext, read limits} {testutfnext testbytestring} {
+    testutfnext [testbytestring G] 0
 } 0
-test utf-6.97 {Tcl_UtfNext, read limits} testutfnext {
-    testutfnext \xA0 0
+test utf-6.97 {Tcl_UtfNext, read limits} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xA0] 0
 } 0
-test utf-6.98 {Tcl_UtfNext, read limits} testutfnext {
-    testutfnext AG 1
+test utf-6.98 {Tcl_UtfNext, read limits} {testutfnext testbytestring} {
+    testutfnext A[testbytestring G] 1
 } 1
-test utf-6.99 {Tcl_UtfNext, read limits} testutfnext {
-    testutfnext A\xA0 1
+test utf-6.99 {Tcl_UtfNext, read limits} {testutfnext testbytestring} {
+    testutfnext A[testbytestring \xA0] 1
 } 1
-test utf-6.100 {Tcl_UtfNext, read limits} testutfnext {
-    testutfnext \xD0\xA0G 1
+test utf-6.100 {Tcl_UtfNext, read limits} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xD0\xA0G] 1
 } 0
-test utf-6.101 {Tcl_UtfNext, read limits} testutfnext {
-    testutfnext \xD0\xA0G 2
+test utf-6.101 {Tcl_UtfNext, read limits} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xD0\xA0G] 2
 } 2
-test utf-6.102 {Tcl_UtfNext, read limits} testutfnext {
-    testutfnext \xD0\xA0\xA0 1
+test utf-6.102 {Tcl_UtfNext, read limits} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xD0\xA0\xA0] 1
 } 0
-test utf-6.103 {Tcl_UtfNext, read limits} testutfnext {
-    testutfnext \xD0\xA0\xA0 2
+test utf-6.103 {Tcl_UtfNext, read limits} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xD0\xA0\xA0] 2
 } 2
-test utf-6.104 {Tcl_UtfNext, read limits} testutfnext {
-    testutfnext \xE8\xA0\xA0G 1
+test utf-6.104 {Tcl_UtfNext, read limits} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xE8\xA0\xA0G] 1
 } 0
-test utf-6.105 {Tcl_UtfNext, read limits} testutfnext {
-    testutfnext \xE8\xA0\xA0G 2
+test utf-6.105 {Tcl_UtfNext, read limits} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xE8\xA0\xA0G] 2
 } 0
-test utf-6.106 {Tcl_UtfNext, read limits} testutfnext {
-    testutfnext \xE8\xA0\xA0G 3
+test utf-6.106 {Tcl_UtfNext, read limits} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xE8\xA0\xA0G] 3
 } 3
-test utf-6.107 {Tcl_UtfNext, read limits} testutfnext {
-    testutfnext \xE8\xA0\xA0\xA0 1
+test utf-6.107 {Tcl_UtfNext, read limits} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xE8\xA0\xA0\xA0] 1
 } 0
-test utf-6.108 {Tcl_UtfNext, read limits} testutfnext {
-    testutfnext \xE8\xA0\xA0\xA0 2
+test utf-6.108 {Tcl_UtfNext, read limits} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xE8\xA0\xA0\xA0] 2
 } 0
-test utf-6.109 {Tcl_UtfNext, read limits} testutfnext {
-    testutfnext \xE8\xA0\xA0\xA0 3
+test utf-6.109 {Tcl_UtfNext, read limits} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xE8\xA0\xA0\xA0] 3
 } 3
-test utf-6.110.0 {Tcl_UtfNext, read limits} {testutfnext ucs2} {
-    testutfnext \xF2\xA0\xA0\xA0G 1
+test utf-6.110.0 {Tcl_UtfNext, read limits} {testutfnext testbytestring ucs2} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xA0G] 1
 } 1
-test utf-6.110.1 {Tcl_UtfNext, read limits} {testutfnext fullutf} {
-    testutfnext \xF2\xA0\xA0\xA0G 1
+test utf-6.110.1 {Tcl_UtfNext, read limits} {testutfnext testbytestring fullutf} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xA0G] 1
 } 0
-test utf-6.111.0 {Tcl_UtfNext, read limits} {testutfnext ucs2} {
-    testutfnext \xF2\xA0\xA0\xA0G 2
+test utf-6.111.0 {Tcl_UtfNext, read limits} {testutfnext testbytestring ucs2} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xA0G] 2
 } 1
-test utf-6.111.1 {Tcl_UtfNext, read limits} {testutfnext fullutf} {
-    testutfnext \xF2\xA0\xA0\xA0G 2
+test utf-6.111.1 {Tcl_UtfNext, read limits} {testutfnext testbytestring fullutf} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xA0G] 2
 } 0
-test utf-6.112.0 {Tcl_UtfNext, read limits} {testutfnext ucs2} {
-    testutfnext \xF2\xA0\xA0\xA0G 3
+test utf-6.112.0 {Tcl_UtfNext, read limits} {testutfnext testbytestring ucs2} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xA0G] 3
 } 1
-test utf-6.112.1 {Tcl_UtfNext, read limits} {testutfnext fullutf} {
-    testutfnext \xF2\xA0\xA0\xA0G 3
+test utf-6.112.1 {Tcl_UtfNext, read limits} {testutfnext testbytestring fullutf} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xA0G] 3
 } 0
-test utf-6.113.0 {Tcl_UtfNext, read limits} {testutfnext ucs2} {
-    testutfnext \xF2\xA0\xA0\xA0G 4
+test utf-6.113.0 {Tcl_UtfNext, read limits} {testutfnext testbytestring ucs2} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xA0G] 4
 } 1
-test utf-6.113.1 {Tcl_UtfNext, read limits} {testutfnext fullutf} {
-    testutfnext \xF2\xA0\xA0\xA0G 4
+test utf-6.113.1 {Tcl_UtfNext, read limits} {testutfnext testbytestring fullutf} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xA0G] 4
 } 4
-test utf-6.114.0 {Tcl_UtfNext, read limits} {testutfnext ucs2} {
-    testutfnext \xF2\xA0\xA0\xA0\xA0 1
+test utf-6.114.0 {Tcl_UtfNext, read limits} {testutfnext testbytestring ucs2} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xA0\xA0] 1
 } 1
-test utf-6.114.1 {Tcl_UtfNext, read limits} {testutfnext fullutf} {
-    testutfnext \xF2\xA0\xA0\xA0\xA0 1
+test utf-6.114.1 {Tcl_UtfNext, read limits} {testutfnext testbytestring fullutf} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xA0\xA0] 1
 } 0
-test utf-6.115.0 {Tcl_UtfNext, read limits} {testutfnext ucs2} {
-    testutfnext \xF2\xA0\xA0\xA0\xA0 2
+test utf-6.115.0 {Tcl_UtfNext, read limits} {testutfnext testbytestring ucs2} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xA0\xA0] 2
 } 1
-test utf-6.115.1 {Tcl_UtfNext, read limits} {testutfnext fullutf} {
-    testutfnext \xF2\xA0\xA0\xA0\xA0 2
+test utf-6.115.1 {Tcl_UtfNext, read limits} {testutfnext testbytestring fullutf} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xA0\xA0] 2
 } 0
-test utf-6.116.0 {Tcl_UtfNext, read limits} {testutfnext ucs2} {
-    testutfnext \xF2\xA0\xA0\xA0\xA0 3
+test utf-6.116.0 {Tcl_UtfNext, read limits} {testutfnext testbytestring ucs2} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xA0\xA0] 3
 } 1
-test utf-6.116.1 {Tcl_UtfNext, read limits} {testutfnext fullutf} {
-    testutfnext \xF2\xA0\xA0\xA0\xA0 3
+test utf-6.116.1 {Tcl_UtfNext, read limits} {testutfnext testbytestring fullutf} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xA0\xA0] 3
 } 0
-test utf-6.117.0 {Tcl_UtfNext, read limits} {testutfnext ucs2} {
-    testutfnext \xF2\xA0\xA0\xA0\xA0 4
+test utf-6.117.0 {Tcl_UtfNext, read limits} {testutfnext testbytestring ucs2} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xA0\xA0] 4
 } 1
-test utf-6.117.1 {Tcl_UtfNext, read limits} {testutfnext fullutf} {
-    testutfnext \xF2\xA0\xA0\xA0\xA0 4
+test utf-6.117.1 {Tcl_UtfNext, read limits} {testutfnext testbytestring fullutf} {
+    testutfnext [testbytestring \xF2\xA0\xA0\xA0\xA0] 4
 } 4
-test utf-6.118 {Tcl_UtfNext, read limits} testutfnext {
-    testutfnext \xA0G 0
+test utf-6.118 {Tcl_UtfNext, read limits} {testutfnext testbytestring} {
+    testutfnext [testbytestring \xA0G] 0
 } 0
-test utf-6.119 {Tcl_UtfNext, read limits} {testutfnext ucs2} {
-    testutfnext \xA0G 1
+test utf-6.119 {Tcl_UtfNext, read limits} {testutfnext testbytestring ucs2} {
+    testutfnext [testbytestring \xA0G] 1
 } 1
-test utf-6.120 {Tcl_UtfNext, read limits} {testutfnext ucs2} {
-    testutfnext \xA0\xA0 1
+test utf-6.120 {Tcl_UtfNext, read limits} {testutfnext testbytestring ucs2} {
+    testutfnext [testbytestring \xA0\xA0] 1
 } 1
-test utf-6.121 {Tcl_UtfNext, read limits} {testutfnext ucs2} {
-    testutfnext \xA0\xA0G 2
+test utf-6.121 {Tcl_UtfNext, read limits} {testutfnext testbytestring ucs2} {
+    testutfnext [testbytestring \xA0\xA0G] 2
 } 1
-test utf-6.122 {Tcl_UtfNext, read limits} {testutfnext ucs2} {
-    testutfnext \xA0\xA0\xA0 2
+test utf-6.122 {Tcl_UtfNext, read limits} {testutfnext testbytestring ucs2} {
+    testutfnext [testbytestring \xA0\xA0\xA0] 2
 } 1
-test utf-6.123 {Tcl_UtfNext, read limits} {testutfnext ucs2} {
-    testutfnext \xA0\xA0\xA0G 3
+test utf-6.123 {Tcl_UtfNext, read limits} {testutfnext testbytestring ucs2} {
+    testutfnext [testbytestring \xA0\xA0\xA0G] 3
 } 1
-test utf-6.124 {Tcl_UtfNext, read limits} {testutfnext ucs2} {
-    testutfnext \xA0\xA0\xA0\xA0 3
+test utf-6.124 {Tcl_UtfNext, read limits} {testutfnext testbytestring ucs2} {
+    testutfnext [testbytestring \xA0\xA0\xA0\xA0] 3
 } 1
-test utf-6.125 {Tcl_UtfNext, read limits} {testutfnext ucs2} {
-    testutfnext \xA0\xA0\xA0\xA0G 4
+test utf-6.125 {Tcl_UtfNext, read limits} {testutfnext testbytestring ucs2} {
+    testutfnext [testbytestring \xA0\xA0\xA0\xA0G] 4
 } 1
-test utf-6.126 {Tcl_UtfNext, read limits} {testutfnext ucs2} {
-    testutfnext \xA0\xA0\xA0\xA0\xA0 4
+test utf-6.126 {Tcl_UtfNext, read limits} {testutfnext testbytestring ucs2} {
+    testutfnext [testbytestring \xA0\xA0\xA0\xA0\xA0] 4
 } 1
 
 test utf-7.1 {Tcl_UtfPrev} testutfprev {
@@ -639,341 +639,335 @@ test utf-7.2 {Tcl_UtfPrev} testutfprev {
 test utf-7.3 {Tcl_UtfPrev} testutfprev {
     testutfprev AA
 } 1
-test utf-7.4 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xF8
+test utf-7.4 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xF8]
 } 1
-test utf-7.4.1 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xF8\xA0\xA0\xA0 2
+test utf-7.4.1 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xF8\xA0\xA0\xA0] 2
 } 1
-test utf-7.4.2 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xF8\xF8\xA0\xA0 2
+test utf-7.4.2 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xF8\xF8\xA0\xA0] 2
 } 1
-test utf-7.5 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xF2
+test utf-7.5 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xF2]
 } 1
-test utf-7.5.1 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xF2\xA0\xA0\xA0 2
+test utf-7.5.1 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xF2\xA0\xA0\xA0] 2
 } 1
-test utf-7.5.2 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xF2\xF8\xA0\xA0 2
+test utf-7.5.2 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xF2\xF8\xA0\xA0] 2
 } 1
-test utf-7.6 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xE8
+test utf-7.6 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xE8]
 } 1
-test utf-7.6.1 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xE8\xA0\xA0\xA0 2
+test utf-7.6.1 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A\u8820[testbytestring \xA0] 2
 } 1
-test utf-7.6.2 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xE8\xF8\xA0\xA0 2
+test utf-7.6.2 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xE8\xF8\xA0\xA0] 2
 } 1
-test utf-7.7 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xD0
+test utf-7.7 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xD0]
 } 1
-test utf-7.7.1 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xD0\xA0\xA0\xA0 2
+test utf-7.7.1 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xD0\xA0\xA0\xA0] 2
 } 1
-test utf-7.7.2 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xD0\xF8\xA0\xA0 2
+test utf-7.7.2 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xD0\xF8\xA0\xA0] 2
 } 1
-test utf-7.8 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xA0
+test utf-7.8 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xA0]
 } 1
-test utf-7.8.1 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xA0\xA0\xA0\xA0 2
+test utf-7.8.1 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xA0\xA0\xA0\xA0] 2
 } 1
-test utf-7.8.2 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xA0\xF8\xA0\xA0 2
+test utf-7.8.2 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xA0\xF8\xA0\xA0] 2
 } 1
-test utf-7.9 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xF8\xA0
+test utf-7.9 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xF8\xA0]
 } 2
-test utf-7.9.1 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xF8\xA0\xA0\xA0 3
+test utf-7.9.1 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xF8\xA0\xA0\xA0] 3
 } 2
-test utf-7.9.2 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xF8\xA0\xF8\xA0 3
+test utf-7.9.2 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xF8\xA0\xF8\xA0] 3
 } 2
-test utf-7.10.0 {Tcl_UtfPrev} {testutfprev ucs2} {
-    testutfprev A\xF2\xA0
+test utf-7.10.0 {Tcl_UtfPrev} {testutfprev testbytestring ucs2} {
+    testutfprev A[testbytestring \xF2\xA0]
 } 2
-test utf-7.10.1 {Tcl_UtfPrev} {testutfprev fullutf} {
-    testutfprev A\xF2\xA0
+test utf-7.10.1 {Tcl_UtfPrev} {testutfprev testbytestring fullutf} {
+    testutfprev A[testbytestring \xF2\xA0]
 } 1
-test utf-7.10.2 {Tcl_UtfPrev} {testutfprev ucs2} {
-    testutfprev A\xF2\xA0\xA0\xA0 3
+test utf-7.10.2 {Tcl_UtfPrev} {testutfprev testbytestring ucs2} {
+    testutfprev A[testbytestring \xF2\xA0\xA0\xA0] 3
 } 2
-test utf-7.10.3 {Tcl_UtfPrev} {testutfprev fullutf} {
-    testutfprev A\xF2\xA0\xA0\xA0 3
+test utf-7.10.3 {Tcl_UtfPrev} {testutfprev testbytestring fullutf} {
+    testutfprev A[testbytestring \xF2\xA0\xA0\xA0] 3
 } 1
-test utf-7.10.4 {Tcl_UtfPrev} {testutfprev ucs2} {
-    testutfprev A\xF2\xA0\xF8\xA0 3
+test utf-7.10.4 {Tcl_UtfPrev} {testutfprev testbytestring ucs2} {
+    testutfprev A[testbytestring \xF2\xA0\xF8\xA0] 3
 } 2
-test utf-7.10.5 {Tcl_UtfPrev} {testutfprev fullutf} {
-    testutfprev A\xF2\xA0\xF8\xA0 3
+test utf-7.10.5 {Tcl_UtfPrev} {testutfprev testbytestring fullutf} {
+    testutfprev A[testbytestring \xF2\xA0\xF8\xA0] 3
 } 1
-test utf-7.11 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xE8\xA0
+test utf-7.11 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xE8\xA0]
 } 1
-test utf-7.11.1 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xE8\xA0\xA0\xA0 3
+test utf-7.11.1 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A\u8820[testbytestring \xA0] 3
 } 1
-test utf-7.11.2 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xE8\xA0\xF8\xA0 3
+test utf-7.11.2 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xE8\xA0\xF8\xA0] 3
 } 1
-test utf-7.11.3 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xE8\xA0\xF8 3
+test utf-7.11.3 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xE8\xA0\xF8] 3
 } 1
-test utf-7.12 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xD0\xA0
+test utf-7.12 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xD0\xA0]
 } 1
-test utf-7.12.1 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xD0\xA0\xA0\xA0 3
+test utf-7.12.1 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xD0\xA0\xA0\xA0] 3
 } 1
-test utf-7.12.2 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xD0\xA0\xF8\xA0 3
+test utf-7.12.2 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xD0\xA0\xF8\xA0] 3
 } 1
-test utf-7.13 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xA0\xA0
+test utf-7.13 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xA0\xA0]
 } 2
-test utf-7.13.1 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xA0\xA0\xA0\xA0 3
+test utf-7.13.1 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xA0\xA0\xA0\xA0] 3
 } 2
-test utf-7.13.2 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xA0\xA0\xF8\xA0 3
+test utf-7.13.2 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xA0\xA0\xF8\xA0] 3
 } 2
-test utf-7.14 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xF8\xA0\xA0
+test utf-7.14 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xF8\xA0\xA0]
 } 3
-test utf-7.14.1 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xF8\xA0\xA0\xA0 4
+test utf-7.14.1 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xF8\xA0\xA0\xA0] 4
 } 3
-test utf-7.14.2 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xF8\xA0\xA0\xF8 4
+test utf-7.14.2 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xF8\xA0\xA0\xF8] 4
 } 3
-test utf-7.15.0 {Tcl_UtfPrev} {testutfprev ucs2} {
-    testutfprev A\xF2\xA0\xA0
+test utf-7.15.0 {Tcl_UtfPrev} {testutfprev testbytestring ucs2} {
+    testutfprev A[testbytestring \xF2\xA0\xA0]
 } 3
-test utf-7.15.1 {Tcl_UtfPrev} {testutfprev fullutf} {
-    testutfprev A\xF2\xA0\xA0
+test utf-7.15.1 {Tcl_UtfPrev} {testutfprev testbytestring fullutf} {
+    testutfprev A[testbytestring \xF2\xA0\xA0]
 } 1
-test utf-7.15.1.0 {Tcl_UtfPrev} {testutfprev ucs2} {
-    testutfprev A\xF2\xA0\xA0\xA0 4
+test utf-7.15.1.0 {Tcl_UtfPrev} {testutfprev testbytestring ucs2} {
+    testutfprev A[testbytestring \xF2\xA0\xA0\xA0] 4
 } 3
-test utf-7.15.1.1 {Tcl_UtfPrev} {testutfprev fullutf} {
-    testutfprev A\xF2\xA0\xA0\xA0 4
+test utf-7.15.1.1 {Tcl_UtfPrev} {testutfprev testbytestring fullutf} {
+    testutfprev A[testbytestring \xF2\xA0\xA0\xA0] 4
 } 1
-test utf-7.15.2.0 {Tcl_UtfPrev} {testutfprev ucs2} {
-    testutfprev A\xF2\xA0\xA0\xF8 4
+test utf-7.15.2.0 {Tcl_UtfPrev} {testutfprev testbytestring ucs2} {
+    testutfprev A[testbytestring \xF2\xA0\xA0\xF8] 4
 } 3
-test utf-7.15.2.1 {Tcl_UtfPrev} {testutfprev fullutf} {
-    testutfprev A\xF2\xA0\xA0\xF8 4
+test utf-7.15.2.1 {Tcl_UtfPrev} {testutfprev testbytestring fullutf} {
+    testutfprev A[testbytestring \xF2\xA0\xA0\xF8] 4
 } 1
 test utf-7.16 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xE8\xA0\xA0
+    testutfprev A\u8820
 } 1
-test utf-7.16.1 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xE8\xA0\xA0\xA0 4
+test utf-7.16.1 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A\u8820[testbytestring \xA0] 4
 } 1
-test utf-7.16.2 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xE8\xA0\xA0\xF8 4
+test utf-7.16.2 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A\u8820[testbytestring \xF8] 4
 } 1
-test utf-7.17 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xD0\xA0\xA0
+test utf-7.17 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xD0\xA0\xA0]
 } 3
-test utf-7.17.1 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xD0\xA0\xA0\xA0 4
+test utf-7.17.1 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xD0\xA0\xA0\xA0] 4
 } 3
-test utf-7.17.2 {Tcl_UtfPrev} testutfprev {
-    testutfprev A\xD0\xA0\xA0\xF8 4
+test utf-7.17.2 {Tcl_UtfPrev} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xD0\xA0\xA0\xF8] 4
 } 3
-test utf-7.18.0 {Tcl_UtfPrev} {testutfprev ucs2} {
-    testutfprev A\xA0\xA0\xA0
+test utf-7.18.0 {Tcl_UtfPrev} {testutfprev testbytestring ucs2} {
+    testutfprev A[testbytestring \xA0\xA0\xA0]
 } 3
-test utf-7.18.1 {Tcl_UtfPrev} {testutfprev fullutf} {
-    testutfprev A\xA0\xA0\xA0
+test utf-7.18.1 {Tcl_UtfPrev} {testutfprev testbytestring fullutf} {
+    testutfprev A[testbytestring \xA0\xA0\xA0]
 } 3
-test utf-7.18.2 {Tcl_UtfPrev} {testutfprev ucs2} {
-    testutfprev A\xA0\xA0\xA0\xA0 4
+test utf-7.18.2 {Tcl_UtfPrev} {testutfprev testbytestring ucs2} {
+    testutfprev A[testbytestring \xA0\xA0\xA0\xA0] 4
 } 3
-test utf-7.18.3 {Tcl_UtfPrev} {testutfprev fullutf} {
-    testutfprev A\xA0\xA0\xA0\xA0 4
+test utf-7.18.3 {Tcl_UtfPrev} {testutfprev testbytestring fullutf} {
+    testutfprev A[testbytestring \xA0\xA0\xA0\xA0] 4
 } 3
-test utf-7.18.4 {Tcl_UtfPrev} {testutfprev ucs2} {
-    testutfprev A\xA0\xA0\xA0\xF8 4
+test utf-7.18.4 {Tcl_UtfPrev} {testutfprev testbytestring ucs2} {
+    testutfprev A[testbytestring \xA0\xA0\xA0\xF8] 4
 } 3
-test utf-7.18.5 {Tcl_UtfPrev} {testutfprev fullutf} {
-    testutfprev A\xA0\xA0\xA0\xF8 4
+test utf-7.18.5 {Tcl_UtfPrev} {testutfprev testbytestring fullutf} {
+    testutfprev A[testbytestring \xA0\xA0\xA0\xF8] 4
 } 3
-test utf-7.19.0 {Tcl_UtfPrev} {testutfprev ucs2} {
-    testutfprev A\xF8\xA0\xA0\xA0
+test utf-7.19.0 {Tcl_UtfPrev} {testutfprev testbytestring ucs2} {
+    testutfprev A[testbytestring \xF8\xA0\xA0\xA0]
 } 4
-test utf-7.19.1 {Tcl_UtfPrev} {testutfprev fullutf} {
-    testutfprev A\xF8\xA0\xA0\xA0
+test utf-7.19.1 {Tcl_UtfPrev} {testutfprev testbytestring fullutf} {
+    testutfprev A[testbytestring \xF8\xA0\xA0\xA0]
 } 4
-test utf-7.20.0 {Tcl_UtfPrev} {testutfprev ucs2} {
-    testutfprev A\xF2\xA0\xA0\xA0
+test utf-7.20.0 {Tcl_UtfPrev} {testutfprev testbytestring ucs2} {
+    testutfprev A[testbytestring \xF2\xA0\xA0\xA0]
 } 4
-test utf-7.20.1 {Tcl_UtfPrev} {testutfprev fullutf} {
-    testutfprev A\xF2\xA0\xA0\xA0
+test utf-7.20.1 {Tcl_UtfPrev} {testutfprev testbytestring fullutf} {
+    testutfprev A[testbytestring \xF2\xA0\xA0\xA0]
 } 1
-test utf-7.21.0 {Tcl_UtfPrev} {testutfprev ucs2} {
-    testutfprev A\xE8\xA0\xA0\xA0
+test utf-7.21.0 {Tcl_UtfPrev} {testutfprev testbytestring ucs2} {
+    testutfprev A\u8820[testbytestring \xA0]
 } 4
-test utf-7.21.1 {Tcl_UtfPrev} {testutfprev fullutf} {
-    testutfprev A\xE8\xA0\xA0\xA0
+test utf-7.21.1 {Tcl_UtfPrev} {testutfprev testbytestring fullutf} {
+    testutfprev A\u8820[testbytestring \xA0]
 } 4
-test utf-7.22.0 {Tcl_UtfPrev} {testutfprev ucs2} {
-    testutfprev A\xD0\xA0\xA0\xA0
+test utf-7.22.0 {Tcl_UtfPrev} {testutfprev testbytestring ucs2} {
+    testutfprev A[testbytestring \xD0\xA0\xA0\xA0]
 } 4
-test utf-7.22.1 {Tcl_UtfPrev} {testutfprev fullutf} {
-    testutfprev A\xD0\xA0\xA0\xA0
+test utf-7.22.1 {Tcl_UtfPrev} {testutfprev testbytestring fullutf} {
+    testutfprev A[testbytestring \xD0\xA0\xA0\xA0]
 } 4
-test utf-7.23.0 {Tcl_UtfPrev} {testutfprev ucs2} {
-    testutfprev A\xA0\xA0\xA0\xA0
+test utf-7.23.0 {Tcl_UtfPrev} {testutfprev testbytestring ucs2} {
+    testutfprev A[testbytestring \xA0\xA0\xA0\xA0]
 } 4
-test utf-7.23.1 {Tcl_UtfPrev} {testutfprev fullutf} {
-    testutfprev A\xA0\xA0\xA0\xA0
+test utf-7.23.1 {Tcl_UtfPrev} {testutfprev testbytestring fullutf} {
+    testutfprev A[testbytestring \xA0\xA0\xA0\xA0]
 } 4
-test utf-7.24 {Tcl_UtfPrev -- overlong sequence}  testutfprev {
-    testutfprev A\xC0\x81
+test utf-7.24 {Tcl_UtfPrev -- overlong sequence}  {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xC0\x81]
 } 2
-test utf-7.25 {Tcl_UtfPrev -- overlong sequence}  testutfprev {
-    testutfprev A\xC0\x81 2
+test utf-7.25 {Tcl_UtfPrev -- overlong sequence}  {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xC0\x81] 2
 } 1
-test utf-7.26 {Tcl_UtfPrev -- overlong sequence}  testutfprev {
-    testutfprev A\xE0\x80\x80
+test utf-7.26 {Tcl_UtfPrev -- overlong sequence}  {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xE0\x80\x80]
 } 3
-test utf-7.27 {Tcl_UtfPrev -- overlong sequence}  testutfprev {
-    testutfprev A\xE0\x80
+test utf-7.27 {Tcl_UtfPrev -- overlong sequence}  {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xE0\x80]
 } 2
-test utf-7.27.1 {Tcl_UtfPrev -- overlong sequence}  testutfprev {
-    testutfprev A\xE0\x80\x80 3
+test utf-7.27.1 {Tcl_UtfPrev -- overlong sequence}  {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xE0\x80\x80] 3
 } 2
-test utf-7.28 {Tcl_UtfPrev -- overlong sequence}  testutfprev {
-    testutfprev A\xE0
+test utf-7.28 {Tcl_UtfPrev -- overlong sequence}  {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xE0]
 } 1
-test utf-7.28.1 {Tcl_UtfPrev -- overlong sequence}  testutfprev {
-    testutfprev A\xE0\x80\x80 2
+test utf-7.28.1 {Tcl_UtfPrev -- overlong sequence}  {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xE0\x80\x80] 2
 } 1
-test utf-7.29.0 {Tcl_UtfPrev -- overlong sequence}  {testutfprev ucs2} {
-    testutfprev A\xF0\x80\x80\x80
+test utf-7.29.0 {Tcl_UtfPrev -- overlong sequence}  {testutfprev testbytestring ucs2} {
+    testutfprev A[testbytestring \xF0\x80\x80\x80]
 } 4
-test utf-7.29.1 {Tcl_UtfPrev -- overlong sequence}  {testutfprev fullutf} {
-    testutfprev A\xF0\x80\x80\x80
+test utf-7.29.1 {Tcl_UtfPrev -- overlong sequence}  {testutfprev testbytestring fullutf} {
+    testutfprev A[testbytestring \xF0\x80\x80\x80]
 } 4
-test utf-7.30 {Tcl_UtfPrev -- overlong sequence}  testutfprev {
-    testutfprev A\xF0\x80\x80\x80 4
+test utf-7.30 {Tcl_UtfPrev -- overlong sequence}  {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xF0\x80\x80\x80] 4
 } 3
-test utf-7.31 {Tcl_UtfPrev -- overlong sequence}  testutfprev {
-    testutfprev A\xF0\x80\x80\x80 3
+test utf-7.31 {Tcl_UtfPrev -- overlong sequence}  {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xF0\x80\x80\x80] 3
 } 2
-test utf-7.32 {Tcl_UtfPrev -- overlong sequence}  testutfprev {
-    testutfprev A\xF0\x80\x80\x80 2
+test utf-7.32 {Tcl_UtfPrev -- overlong sequence}  {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xF0\x80\x80\x80] 2
 } 1
-test utf-7.33 {Tcl_UtfPrev -- overlong sequence}  testutfprev {
-    testutfprev A\xC0\x80
+test utf-7.33 {Tcl_UtfPrev -- overlong sequence}  {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xC0\x80]
 } 1
-test utf-7.34 {Tcl_UtfPrev -- overlong sequence}  testutfprev {
-    testutfprev A\xC1\x80
+test utf-7.34 {Tcl_UtfPrev -- overlong sequence}  {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xC1\x80]
 } 2
-test utf-7.35 {Tcl_UtfPrev -- overlong sequence}  testutfprev {
-    testutfprev A\xC2\x80
+test utf-7.35 {Tcl_UtfPrev -- overlong sequence}  {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xC2\x80]
 } 1
-test utf-7.36 {Tcl_UtfPrev -- overlong sequence}  testutfprev {
-    testutfprev A\xE0\xA0\x80
+test utf-7.36 {Tcl_UtfPrev -- overlong sequence}  {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xE0\xA0\x80]
 } 1
-test utf-7.37 {Tcl_UtfPrev -- overlong sequence}  testutfprev {
-    testutfprev A\xE0\xA0\x80 3
+test utf-7.37 {Tcl_UtfPrev -- overlong sequence}  {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xE0\xA0\x80] 3
 } 1
-test utf-7.38 {Tcl_UtfPrev -- overlong sequence}  testutfprev {
-    testutfprev A\xE0\xA0\x80 2
+test utf-7.38 {Tcl_UtfPrev -- overlong sequence}  {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xE0\xA0\x80] 2
 } 1
-test utf-7.39.0 {Tcl_UtfPrev -- overlong sequence}  {testutfprev ucs2} {
-    testutfprev A\xF0\x90\x80\x80
+test utf-7.39.0 {Tcl_UtfPrev -- overlong sequence}  {testutfprev testbytestring ucs2} {
+    testutfprev A[testbytestring \xF0\x90\x80\x80]
 } 4
-test utf-7.39.1 {Tcl_UtfPrev -- overlong sequence}  {testutfprev fullutf} {
-    testutfprev A\xF0\x90\x80\x80
+test utf-7.39.1 {Tcl_UtfPrev -- overlong sequence}  {testutfprev testbytestring fullutf} {
+    testutfprev A[testbytestring \xF0\x90\x80\x80]
 } 1
-test utf-7.40.0 {Tcl_UtfPrev -- overlong sequence}  {testutfprev ucs2} {
-    testutfprev A\xF0\x90\x80\x80 4
+test utf-7.40.0 {Tcl_UtfPrev -- overlong sequence}  {testutfprev testbytestring ucs2} {
+    testutfprev A[testbytestring \xF0\x90\x80\x80] 4
 } 3
-test utf-7.40.1 {Tcl_UtfPrev -- overlong sequence}  {testutfprev fullutf} {
-    testutfprev A\xF0\x90\x80\x80 4
+test utf-7.40.1 {Tcl_UtfPrev -- overlong sequence}  {testutfprev testbytestring fullutf} {
+    testutfprev A[testbytestring \xF0\x90\x80\x80] 4
 } 1
-test utf-7.41.0 {Tcl_UtfPrev -- overlong sequence}  {testutfprev ucs2} {
-    testutfprev A\xF0\x90\x80\x80 3
+test utf-7.41.0 {Tcl_UtfPrev -- overlong sequence}  {testutfprev testbytestring ucs2} {
+    testutfprev A[testbytestring \xF0\x90\x80\x80] 3
 } 2
-test utf-7.41.1 {Tcl_UtfPrev -- overlong sequence}  {testutfprev fullutf} {
-    testutfprev A\xF0\x90\x80\x80 3
+test utf-7.41.1 {Tcl_UtfPrev -- overlong sequence}  {testutfprev testbytestring fullutf} {
+    testutfprev A[testbytestring \xF0\x90\x80\x80] 3
 } 1
 test utf-7.42 {Tcl_UtfPrev -- overlong sequence}  testutfprev {
-    testutfprev A\xF0\x90\x80\x80 2
+    testutfprev A[testbytestring \xF0\x90\x80\x80] 2
 } 1
 test utf-7.43 {Tcl_UtfPrev -- no lead byte at start}  testutfprev {
-    testutfprev \xA0
+    testutfprev [testbytestring \xA0]
 } 0
 test utf-7.44 {Tcl_UtfPrev -- no lead byte at start}  testutfprev {
-    testutfprev \xA0\xA0
+    testutfprev [testbytestring \xA0\xA0]
 } 1
 test utf-7.45 {Tcl_UtfPrev -- no lead byte at start}  testutfprev {
-    testutfprev \xA0\xA0\xA0
+    testutfprev [testbytestring \xA0\xA0\xA0]
 } 2
-test utf-7.46.0 {Tcl_UtfPrev -- no lead byte at start}  {testutfprev ucs2} {
-    testutfprev \xA0\xA0\xA0\xA0
+test utf-7.46.0 {Tcl_UtfPrev -- no lead byte at start}  {testutfprev testbytestring ucs2} {
+    testutfprev [testbytestring \xA0\xA0\xA0\xA0]
 } 3
-test utf-7.46.1 {Tcl_UtfPrev -- no lead byte at start}  {testutfprev fullutf} {
-    testutfprev \xA0\xA0\xA0\xA0
+test utf-7.46.1 {Tcl_UtfPrev -- no lead byte at start}  {testutfprev testbytestring fullutf} {
+    testutfprev [testbytestring \xA0\xA0\xA0\xA0]
 } 3
-test utf-7.47 {Tcl_UtfPrev, pointing to 3th byte of 3-byte valid sequence} testutfprev {
-    testutfprev \xE8\xA0
+test utf-7.47 {Tcl_UtfPrev, pointing to 3th byte of 3-byte valid sequence} {testutfprev testbytestring} {
+    testutfprev [testbytestring \xE8\xA0]
 } 0
-test utf-7.47.1 {Tcl_UtfPrev, pointing to 3th byte of 3-byte valid sequence} testutfprev {
-    testutfprev \xE8\xA0\xA0 2
+test utf-7.47.1 {Tcl_UtfPrev, pointing to 3th byte of 3-byte valid sequence} {testutfprev testbytestring} {
+    testutfprev \u8820 2
 } 0
-test utf-7.47.2 {Tcl_UtfPrev, pointing to 3th byte of 3-byte invalid sequence} testutfprev {
-    testutfprev \xE8\xA0\x00 2
+test utf-7.47.2 {Tcl_UtfPrev, pointing to 3th byte of 3-byte invalid sequence} {testutfprev testbytestring} {
+    testutfprev [testbytestring \xE8\xA0\x00] 2
 } 0
-test utf-7.48.0 {Tcl_UtfPrev, validity check [493dccc2de]} {testutfprev ucs2} {
-    testutfprev A\xF4\x8F\xBF\xBF
+test utf-7.48.0 {Tcl_UtfPrev, validity check [493dccc2de]} {testutfprev testbytestring ucs2} {
+    testutfprev A[testbytestring \xF4\x8F\xBF\xBF]
 } 4
-test utf-7.48.1 {Tcl_UtfPrev, validity check [493dccc2de]} {testutfprev fullutf} {
-    testutfprev A\xF4\x8F\xBF\xBF
+test utf-7.48.1 {Tcl_UtfPrev, validity check [493dccc2de]} {testutfprev testbytestring fullutf} {
+    testutfprev A[testbytestring \xF4\x8F\xBF\xBF]
 } 1
-test utf-7.48.2 {Tcl_UtfPrev, validity check [493dccc2de]} {testutfprev ucs2} {
-    testutfprev A\xF4\x8F\xBF\xBF 4
+test utf-7.48.2 {Tcl_UtfPrev, validity check [493dccc2de]} {testutfprev testbytestring ucs2} {
+    testutfprev A[testbytestring \xF4\x8F\xBF\xBF] 4
 } 3
-test utf-7.48.3 {Tcl_UtfPrev, validity check [493dccc2de]} {testutfprev fullutf} {
-    testutfprev A\xF4\x8F\xBF\xBF 4
+test utf-7.48.3 {Tcl_UtfPrev, validity check [493dccc2de]} {testutfprev testbytestring fullutf} {
+    testutfprev A[testbytestring \xF4\x8F\xBF\xBF] 4
 } 1
-test utf-7.48.4 {Tcl_UtfPrev, validity check [493dccc2de]} {testutfprev ucs2} {
-    testutfprev A\xF4\x8F\xBF\xBF 3
+test utf-7.48.4 {Tcl_UtfPrev, validity check [493dccc2de]} {testutfprev testbytestring ucs2} {
+    testutfprev A[testbytestring \xF4\x8F\xBF\xBF] 3
 } 2
-test utf-7.48.5 {Tcl_UtfPrev, validity check [493dccc2de]} {testutfprev fullutf} {
-    testutfprev A\xF4\x8F\xBF\xBF 3
+test utf-7.48.5 {Tcl_UtfPrev, validity check [493dccc2de]} {testutfprev testbytestring fullutf} {
+    testutfprev A[testbytestring \xF4\x8F\xBF\xBF] 3
 } 1
-test utf-7.48.6 {Tcl_UtfPrev, validity check [493dccc2de]} testutfprev {
-    testutfprev A\xF4\x8F\xBF\xBF 2
+test utf-7.48.6 {Tcl_UtfPrev, validity check [493dccc2de]} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xF4\x8F\xBF\xBF] 2
 } 1
-test utf-7.49.0 {Tcl_UtfPrev, validity check [493dccc2de]} {testutfprev ucs2} {
-    testutfprev A\xF4\x90\x80\x80
+test utf-7.49.0 {Tcl_UtfPrev, validity check [493dccc2de]} {testutfprev testbytestring ucs2} {
+    testutfprev A[testbytestring \xF4\x90\x80\x80]
 } 4
-test utf-7.49.1 {Tcl_UtfPrev, validity check [493dccc2de]} {testutfprev fullutf} {
-    testutfprev A\xF4\x90\x80\x80
+test utf-7.49.1 {Tcl_UtfPrev, validity check [493dccc2de]} {testutfprev testbytestring fullutf} {
+    testutfprev A[testbytestring \xF4\x90\x80\x80]
 } 4
-test utf-7.49.2 {Tcl_UtfPrev, validity check [493dccc2de]} {testutfprev ucs2} {
-    testutfprev A\xF4\x90\x80\x80 4
+test utf-7.49.2 {Tcl_UtfPrev, validity check [493dccc2de]} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xF4\x90\x80\x80] 4
 } 3
-test utf-7.49.3 {Tcl_UtfPrev, validity check [493dccc2de]} {testutfprev fullutf} {
-    testutfprev A\xF4\x90\x80\x80 4
-} 3
-test utf-7.49.4 {Tcl_UtfPrev, validity check [493dccc2de]} {testutfprev ucs2} {
-    testutfprev A\xF4\x90\x80\x80 3
-} 2
-test utf-7.49.5 {Tcl_UtfPrev, validity check [493dccc2de]} {testutfprev fullutf} {
-    testutfprev A\xF4\x90\x80\x80 3
+test utf-7.49.3 {Tcl_UtfPrev, validity check [493dccc2de]} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xF4\x90\x80\x80] 3
 } 2
-test utf-7.49.6 {Tcl_UtfPrev, validity check [493dccc2de]} testutfprev {
-    testutfprev A\xF4\x90\x80\x80 2
+test utf-7.49.4 {Tcl_UtfPrev, validity check [493dccc2de]} {testutfprev testbytestring} {
+    testutfprev A[testbytestring \xF4\x90\x80\x80] 2
 } 1
 
 test utf-8.1 {Tcl_UniCharAtIndex: index = 0} {