diff options
author | dgp <dgp@users.sourceforge.net> | 2016-06-28 21:17:28 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2016-06-28 21:17:28 (GMT) |
commit | edc450c53752cf92b00a45883fee2d66a2bde27c (patch) | |
tree | 15eacd2c1053ac65edb0fe6309c2a2aac14c7f9f /tests | |
parent | 2453f30fb9e0fd71b6fc37ef6df3385f2efaf6d5 (diff) | |
parent | 69471e1a17152088f9d8e90e684fd75e9fc99dfc (diff) | |
download | tcl-edc450c53752cf92b00a45883fee2d66a2bde27c.zip tcl-edc450c53752cf92b00a45883fee2d66a2bde27c.tar.gz tcl-edc450c53752cf92b00a45883fee2d66a2bde27c.tar.bz2 |
Route all ensemble rewrite activity through a few utility routines.
Diffstat (limited to 'tests')
-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 { |