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 | 0b7940e00e005bd554c37ea0b3e96b10b1833d0c (patch) | |
| tree | 2c6a820a20a9f6575e65324a1d18d6f903055dee /tests/stringComp.test | |
| parent | 183a28c10991e4f6c893a17e9ced2f17d37ce4d6 (diff) | |
| download | tcl-0b7940e00e005bd554c37ea0b3e96b10b1833d0c.zip tcl-0b7940e00e005bd554c37ea0b3e96b10b1833d0c.tar.gz tcl-0b7940e00e005bd554c37ea0b3e96b10b1833d0c.tar.bz2 | |
make doubly sure that things which should be unshared stay unshared
Diffstat (limited to 'tests/stringComp.test')
| -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} |