summaryrefslogtreecommitdiffstats
path: root/tests/namespace.test
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2016-05-20 05:14:37 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2016-05-20 05:14:37 (GMT)
commit07666542f4a7b9ba216e19b1fd3d5db1b3f943c3 (patch)
treea62fec07c20d2aac07658bcb75f5e4a269252bbd /tests/namespace.test
parentdc3841fe45692ab1cda05625f74d951a5a0460d7 (diff)
downloadtcl-07666542f4a7b9ba216e19b1fd3d5db1b3f943c3.zip
tcl-07666542f4a7b9ba216e19b1fd3d5db1b3f943c3.tar.gz
tcl-07666542f4a7b9ba216e19b1fd3d5db1b3f943c3.tar.bz2
Added tests that show that this branch isn't ready to be committed back yet.
Diffstat (limited to 'tests/namespace.test')
-rw-r--r--tests/namespace.test19
1 files changed, 19 insertions, 0 deletions
diff --git a/tests/namespace.test b/tests/namespace.test
index cded1f4..1b31fc5 100644
--- a/tests/namespace.test
+++ b/tests/namespace.test
@@ -2953,6 +2953,25 @@ 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
+} {}
# cleanup
catch {rename cmd1 {}}