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 | 7cde8a22a19b136989bd632229abc5fbb5d5836b (patch) | |
tree | 9017fe11b364e0f8f2b0fcd6830e3ffef2bafe79 /tests/namespace.test | |
parent | 535895e57716ed178153b1befbe3bbebc19eb17a (diff) | |
download | tcl-7cde8a22a19b136989bd632229abc5fbb5d5836b.zip tcl-7cde8a22a19b136989bd632229abc5fbb5d5836b.tar.gz tcl-7cde8a22a19b136989bd632229abc5fbb5d5836b.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 { |