summaryrefslogtreecommitdiffstats
path: root/tests/string.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2011-04-12 20:04:11 (GMT)
committerdgp <dgp@users.sourceforge.net>2011-04-12 20:04:11 (GMT)
commit5a08b618246a4a090b013da4b3b5f58d54cff5c6 (patch)
tree31ff3921f38c2e5d92fec768e544fc37c2ab5333 /tests/string.test
parent5013e703de04c684116b21a99b9713023cc88505 (diff)
downloadtcl-5a08b618246a4a090b013da4b3b5f58d54cff5c6.zip
tcl-5a08b618246a4a090b013da4b3b5f58d54cff5c6.tar.gz
tcl-5a08b618246a4a090b013da4b3b5f58d54cff5c6.tar.bz2
Repair corruption in [string reverse] when string rep invalidation failed
to also reset the bytes allocated for string rep to zero [Bug 3285472].
Diffstat (limited to 'tests/string.test')
-rw-r--r--tests/string.test5
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/string.test b/tests/string.test
index 6b00f3a..cddfe4c 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -1608,6 +1608,11 @@ test string-24.11 {string reverse command - corner case} {
set y \udead
string reverse $x$y
} \udead\ubeef
+test string-24.12 {string reverse command - corner case} {
+ set x \ubeef
+ set y \udead
+ string is ascii [string reverse $x$y]
+} 0
test string-25.1 {string is list} {
string is list {a b c}