summaryrefslogtreecommitdiffstats
path: root/tests/string.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2011-08-25 16:26:37 (GMT)
committerdgp <dgp@users.sourceforge.net>2011-08-25 16:26:37 (GMT)
commitf04c7d313f1392d0e474bbb3c40af1d69791f770 (patch)
tree8ed874dc86b4e1e6a4d244dcd17c9aaee45211c3 /tests/string.test
parent1e48d43ca28b379e168704d6206091af3472bfc4 (diff)
downloadtcl-f04c7d313f1392d0e474bbb3c40af1d69791f770.zip
tcl-f04c7d313f1392d0e474bbb3c40af1d69791f770.tar.gz
tcl-f04c7d313f1392d0e474bbb3c40af1d69791f770.tar.bz2
3396731 Another rewrite of TclStringObjReverse() to make it adopt the
nijtmans approach for reversing the objPtr->bytes rep without losing performance.
Diffstat (limited to 'tests/string.test')
-rw-r--r--tests/string.test8
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}