3396731 Revise the [string reverse] implementation to operate on the

representation that comes in, avoid conversion to other reps.

1 files changed, 8 insertions, 0 deletions

diff --git a/tests/string.test b/tests/string.test
index 92f544e..85a7372 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -1626,6 +1626,14 @@ test string-24.12 {string reverse command - corner case} {
 test string-24.13 {string reverse command - pure Unicode string} {
     string reverse [string range \ubeef\udead\ubeef\udead\ubeef\udead 1 5]
 } \udead\ubeef\udead\ubeef\udead
+test string-24.14 {string reverse command - pure bytearray} {
+    binary scan [string reverse [binary format H* 010203]] H* x
+    set x
+} 030201
+test string-24.15 {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}