Revert [d874801c57]: putting back "string bytelength". It turns out to be too complicated to take along with the other deprecations in TIP #485

3 files changed, 6 insertions, 6 deletions

diff --git a/tests/info.test b/tests/info.test
index ac4b98c..fd89b47 100644
--- a/tests/info.test
+++ b/tests/info.test
@@ -103,8 +103,8 @@ test info-2.5 {info body option, returning bytecompiled bodies} -body {
 # causing an empty string to be returned [Bug #545644]
 test info-2.6 {info body option, returning list bodies} {
     proc foo args [list subst bar]
-    list [string length [info body foo]] \
-	    [foo; string length [info body foo]]
+    list [string bytelength [info body foo]] \
+	    [foo; string bytelength [info body foo]]
 } {9 9}
 
 proc testinfocmdcount {} {
diff --git a/tests/regexp.test b/tests/regexp.test
index 62cadd3..7367af7 100644
--- a/tests/regexp.test
+++ b/tests/regexp.test
@@ -760,8 +760,8 @@ test regexp-20.1 {regsub shared object shimmering} {
     set b $a
     set c abcdefghijklmnopqurstuvwxyz0123456789
     regsub $a $c $b d
-    list $d [string length $d]
-} [list abcdefghijklmnopqurstuvwxyz0123456789 37]
+    list $d [string length $d] [string bytelength $d]
+} [list abcdefghijklmnopqurstuvwxyz0123456789 37 37]
 test regexp-20.2 {regsub shared object shimmering with -about} {
     eval regexp -about abc
 } {0 {}}
diff --git a/tests/regexpComp.test b/tests/regexpComp.test
index dc7b909..fbf8012 100644
--- a/tests/regexpComp.test
+++ b/tests/regexpComp.test
@@ -798,9 +798,9 @@ test regexpComp-20.1 {regsub shared object shimmering} {
 	set b $a
 	set c abcdefghijklmnopqurstuvwxyz0123456789
 	regsub $a $c $b d
-	list $d [string length $d]
+	list $d [string length $d] [string bytelength $d]
     }
-} [list abcdefghijklmnopqurstuvwxyz0123456789 37]
+} [list abcdefghijklmnopqurstuvwxyz0123456789 37 37]
 test regexpComp-20.2 {regsub shared object shimmering with -about} {
     evalInProc {
 	eval regexp -about abc