summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2014-05-01 09:11:09 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2014-05-01 09:11:09 (GMT)
commitf90303fa441e484833044f364aae0974a6a705d4 (patch)
tree2c6a820a20a9f6575e65324a1d18d6f903055dee
parent500446d887323027b12550caa7a5acf730d7acd7 (diff)
downloadtcl-f90303fa441e484833044f364aae0974a6a705d4.zip
tcl-f90303fa441e484833044f364aae0974a6a705d4.tar.gz
tcl-f90303fa441e484833044f364aae0974a6a705d4.tar.bz2
make doubly sure that things which should be unshared stay unshared
-rw-r--r--tests/stringComp.test12
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/stringComp.test b/tests/stringComp.test
index 0d134b5..165ef20 100644
--- a/tests/stringComp.test
+++ b/tests/stringComp.test
@@ -704,20 +704,20 @@ test stringComp-12.1 {Bug 3588366: end-offsets before start} {
## string replace
test stringComp-14.1 {Bug 82e7f67325} {
- apply {{} {
- set a [join {a b} {}]
+ apply {x {
+ set a [join $x {}]
lappend b [string length [string replace ___! 0 2 $a]]
lappend b [string length [string replace ___! 0 2 $a[unset a]]]
- }}
+ }} {a b}
} {3 3}
test stringComp-14.2 {Bug 82e7f67325} memory {
# As in stringComp-14.1, but make sure we don't retain too many refs
leaktest {
- apply {{} {
- set a [join {a b} {}]
+ apply {x {
+ set a [join $x {}]
lappend b [string length [string replace ___! 0 2 $a]]
lappend b [string length [string replace ___! 0 2 $a[unset a]]]
- }}
+ }} {a b}
}
} {0}