diff options
author | dgp <dgp@users.sourceforge.net> | 2011-04-12 20:04:11 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2011-04-12 20:04:11 (GMT) |
commit | 5a08b618246a4a090b013da4b3b5f58d54cff5c6 (patch) | |
tree | 31ff3921f38c2e5d92fec768e544fc37c2ab5333 /tests/string.test | |
parent | 5013e703de04c684116b21a99b9713023cc88505 (diff) | |
download | tcl-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.test | 5 |
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} |