3396731 Another rewrite of TclStringObjReverse() to make it adopt the

nijtmans approach for reversing the objPtr->bytes rep without losing
performance.

1 files changed, 8 insertions, 0 deletions

diff --git a/tests/string.test b/tests/string.test
index 1a62a66..e53504f 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -1623,6 +1623,14 @@ test string-24.12 {string reverse command - corner case} {
     set y \udead
     string is ascii [string reverse $x$y]
 } 0
+test string-24.13 {string reverse command - pure bytearray} {
+    binary scan [string reverse [binary format H* 010203]] H* x
+    set x
+} 030201
+test string-24.14 {string reverse command - pure bytearray} {
+    binary scan [tcl::string::reverse [binary format H* 010203]] H* x
+    set x
+} 030201
 
 test string-25.1 {string is list} {
     string is list {a b c}