summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2016-06-28 22:30:18 (GMT)
committerdgp <dgp@users.sourceforge.net>2016-06-28 22:30:18 (GMT)
commit23a0290873b671c61ba3bc112ffc158fb859667a (patch)
tree9405168e88fadae774bff8ed265edeb3f236bfcc /tests
parent00357e27055dd3b3dcc2b853833731d6db76c137 (diff)
parentedc450c53752cf92b00a45883fee2d66a2bde27c (diff)
downloadtcl-23a0290873b671c61ba3bc112ffc158fb859667a.zip
tcl-23a0290873b671c61ba3bc112ffc158fb859667a.tar.gz
tcl-23a0290873b671c61ba3bc112ffc158fb859667a.tar.bz2
Route all ensemble rewrite activity through a few utility routines.
Diffstat (limited to 'tests')
-rw-r--r--tests/namespace.test16
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/namespace.test b/tests/namespace.test
index 5c5783b..fc74d73 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 {