diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2014-05-01 09:11:09 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2014-05-01 09:11:09 (GMT) |
| commit | f90303fa441e484833044f364aae0974a6a705d4 (patch) | |
| tree | 2c6a820a20a9f6575e65324a1d18d6f903055dee | |
| parent | 500446d887323027b12550caa7a5acf730d7acd7 (diff) | |
| download | tcl-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.test | 12 |
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} |