summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2011-08-27 04:24:24 (GMT)
committerdgp <dgp@users.sourceforge.net>2011-08-27 04:24:24 (GMT)
commit1e29bab5af753724511fb41ab9fcf3148a3f4067 (patch)
tree93b5bb1e890187c860d1b11ee291fe09f46da457 /tests
parent545f0cffe802c26b1779eb2f9ca6c4ade8c8c654 (diff)
parent65fc2758670c06dcb89d1bd829f990290c74e8c3 (diff)
downloadtcl-1e29bab5af753724511fb41ab9fcf3148a3f4067.zip
tcl-1e29bab5af753724511fb41ab9fcf3148a3f4067.tar.gz
tcl-1e29bab5af753724511fb41ab9fcf3148a3f4067.tar.bz2
3396731 Revise the [string reverse] implementation to operate on the
representation that comes in, avoid conversion to other reps.
Diffstat (limited to 'tests')
-rw-r--r--tests/string.test8
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}