diff options
author | dgp <dgp@users.sourceforge.net> | 2016-05-24 20:16:10 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2016-05-24 20:16:10 (GMT) |
commit | 76b6abb07e94280e27b013d5c2610b67776aa6a1 (patch) | |
tree | 9017fe11b364e0f8f2b0fcd6830e3ffef2bafe79 /tests/namespace.test | |
parent | c0771697239c868133d1f53442b91259ab58cf25 (diff) | |
download | tcl-76b6abb07e94280e27b013d5c2610b67776aa6a1.zip tcl-76b6abb07e94280e27b013d5c2610b67776aa6a1.tar.gz tcl-76b6abb07e94280e27b013d5c2610b67776aa6a1.tar.bz2 |
New test namespace-53.11 demonstrates the bug.
Diffstat (limited to 'tests/namespace.test')
-rw-r--r-- | tests/namespace.test | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/namespace.test b/tests/namespace.test index cb9bc8c..2ba695a 100644 --- a/tests/namespace.test +++ b/tests/namespace.test @@ -2928,6 +2928,22 @@ test namespace-53.10 {ensembles: nested rewrite} -setup { 0 {1 v}\ 1 {wrong # args: should be "ns v x z2 a2"}\ 0 {2 v v2}} +test namespace-53.11 {ensembles: nested rewrite} -setup { + namespace eval ns { + namespace export x + namespace eval x { + proc z2 {a1 a2} {list 2 $a1 $a2} + namespace export z* + namespace ensemble create -parameter p + } + namespace ensemble create + } +} -body { + list [catch {ns x 1 z2} msg] $msg +} -cleanup { + namespace delete ns + unset -nocomplain msg +} -result {1 {wrong # args: should be "ns x 1 z2 a2"}} test namespace-54.1 {leak on namespace deletion} -constraints {memory} \ -setup { |