diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2016-05-21 09:30:02 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2016-05-21 09:30:02 (GMT) |
commit | 0e5bc322f1164f51b9d9714a4a012b5519542876 (patch) | |
tree | d4e67308decc65c55eb0f926021d438365dcc6ef /tests/namespace.test | |
parent | 3a20c7912b73ddd6dac080f250140bd0f3a90672 (diff) | |
parent | 1195cdbd7703cec023f22231e80b9cb84cddf759 (diff) | |
download | tcl-0e5bc322f1164f51b9d9714a4a012b5519542876.zip tcl-0e5bc322f1164f51b9d9714a4a012b5519542876.tar.gz tcl-0e5bc322f1164f51b9d9714a4a012b5519542876.tar.bz2 |
Fix for [f97d4ee020]; use a two-stage approach to avoid quadratic behavior.
Diffstat (limited to 'tests/namespace.test')
-rw-r--r-- | tests/namespace.test | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/tests/namespace.test b/tests/namespace.test index 47c8001..5c5783b 100644 --- a/tests/namespace.test +++ b/tests/namespace.test @@ -2953,6 +2953,45 @@ test namespace-54.1 {leak on namespace deletion} -constraints {memory} \ test namespace-55.1 {compiled ensembles inside compiled ensembles: Bug 6d2f249a01} { info class [format %s constructor] oo::object } "" + +test namespace-56.1 {bug f97d4ee020: mutually-entangled deletion} { + namespace eval ::testing { + proc abc {} {} + proc def {} {} + trace add command abc delete "rename ::testing::def {}; #" + trace add command def delete "rename ::testing::abc {}; #" + } + namespace delete ::testing +} {} +test namespace-56.2 {bug f97d4ee020: mutually-entangled deletion} { + namespace eval ::testing { + namespace eval abc {proc xyz {} {}} + namespace eval def {proc xyz {} {}} + trace add command abc::xyz delete "namespace delete ::testing::def {}; #" + trace add command def::xyz delete "namespace delete ::testing::abc {}; #" + } + namespace delete ::testing +} {} +test namespace-56.3 {bug f97d4ee020: mutually-entangled deletion} { + namespace eval ::testing { + variable gone {} + oo::class create CB { + variable cmd + constructor other {set cmd $other} + destructor {rename $cmd {}; lappend ::testing::gone $cmd} + } + namespace eval abc { + ::testing::CB create def ::testing::abc::ghi + ::testing::CB create ghi ::testing::abc::def + } + namespace delete abc + try { + return [lsort $gone] + } finally { + namespace delete ::testing + } + } +} {::testing::abc::def ::testing::abc::ghi} # cleanup catch {rename cmd1 {}} |