diff options
author | dgp <dgp@users.sourceforge.net> | 2017-09-02 22:10:59 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2017-09-02 22:10:59 (GMT) |
commit | 440482d40ff244dfd5de9fbd2cb3af8dd79c56cd (patch) | |
tree | 237d6ed00d58d1395fdf16f38f611d6cdc684424 /tests | |
parent | 7a136a781a8acc9f92bafecfb5406db9537d61ed (diff) | |
parent | 4509f2480dfebe7e3e5e5f3f14833826120370fc (diff) | |
download | tcl-440482d40ff244dfd5de9fbd2cb3af8dd79c56cd.zip tcl-440482d40ff244dfd5de9fbd2cb3af8dd79c56cd.tar.gz tcl-440482d40ff244dfd5de9fbd2cb3af8dd79c56cd.tar.bz2 |
[0e4d88b650] Allow command overwrite when deletion callback deletes namespace.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/basic.test | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/basic.test b/tests/basic.test index bff9a95..7819241 100644 --- a/tests/basic.test +++ b/tests/basic.test @@ -224,6 +224,21 @@ test basic-15.1 {Tcl_CreateObjCommand, new cmd goes into a namespace specified i list [test_ns_basic::cmd] \ [namespace delete test_ns_basic] } {::test_ns_basic {}} +test basic-15.2 {Tcl_CreateObjCommand, Bug 0e4d88b650} -setup { + proc deleter {ns args} { + namespace delete $ns + } + namespace eval n { + proc p {} {} + } + trace add command n::p delete [list [namespace which deleter] [namespace current]::n] +} -body { + proc n::p {} {} +} -cleanup { + namespace delete n + rename deleter {} +} + test basic-16.1 {TclInvokeStringCommand} {emptyTest} { } {} |