diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2014-02-08 07:54:21 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2014-02-08 07:54:21 (GMT) |
| commit | 2ac3c16d405d20153ce0ad43f308ff05bc372f7a (patch) | |
| tree | a2c25a30318c9b3b690cc56b74cd1e45cfb7d794 /tests/namespace.test | |
| parent | c688c0e2b32e29091cb41f2ef425fe3cafa39c19 (diff) | |
| parent | 5c88f32139644538542058b07833e3731af7be18 (diff) | |
| download | tcl-2ac3c16d405d20153ce0ad43f308ff05bc372f7a.zip tcl-2ac3c16d405d20153ce0ad43f308ff05bc372f7a.tar.gz tcl-2ac3c16d405d20153ce0ad43f308ff05bc372f7a.tar.bz2 | |
merge trunk
Diffstat (limited to 'tests/namespace.test')
| -rw-r--r-- | tests/namespace.test | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/namespace.test b/tests/namespace.test index f6688f1..8c4b81c 100644 --- a/tests/namespace.test +++ b/tests/namespace.test @@ -558,6 +558,15 @@ test namespace-13.1 {DeleteImportedCmd, deletes imported cmds} { lappend l [info commands ::test_ns_import::*] } } {::test_ns_import::cmd1 {}} +test namespace-13.2 {DeleteImportedCmd, Bug a4494e28ed} { + # Will panic if still buggy + namespace eval src {namespace export foo; proc foo {} {}} + namespace eval dst {namespace import [namespace parent]::src::foo} + trace add command src::foo delete \ + "[list namespace delete [namespace current]::dst] ;#" + proc src::foo {} {} + namespace delete src +} {} test namespace-14.1 {TclGetNamespaceForQualName, absolute names} { catch {namespace delete {*}[namespace children :: test_ns_*]} |