diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-09-04 13:32:42 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-09-04 13:32:42 (GMT) |
commit | e0bd8979947597d355b5d8dc752408a2473a8aab (patch) | |
tree | 7801dcb2bce78ae8ace88c8cb10670c8eed5e50d /tests | |
parent | fb4d10176fd27700f2c63a129f91b956ccec707f (diff) | |
parent | 66f89aa35f529eeddaa54088e12452699348a5dd (diff) | |
download | tcl-androwish.zip tcl-androwish.tar.gz tcl-androwish.tar.bz2 |
merge zipfsandrowish
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} { } {} |