summaryrefslogtreecommitdiffstats
path: root/tests/autoMkindex.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'tests/autoMkindex.tcl')
-rw-r--r--tests/autoMkindex.tcl21
1 files changed, 21 insertions, 0 deletions
diff --git a/tests/autoMkindex.tcl b/tests/autoMkindex.tcl
index 7a72fbe..2756358 100644
--- a/tests/autoMkindex.tcl
+++ b/tests/autoMkindex.tcl
@@ -50,3 +50,24 @@ namespace eval buried {
proc ::buried::explicit {args} {return "explicit: $args"}
}
}
+
+# With proper hooks, we should be able to support other commands
+# that create procedures
+
+proc buried::myproc {name body args} {
+ ::proc $name $body $args
+}
+namespace eval ::buried {
+ proc mycmd1 args {return "mycmd"}
+ myproc mycmd2 args {return "mycmd"}
+}
+::buried::myproc mycmd3 args {return "another"}
+
+proc {buried::my proc} {name body args} {
+ ::proc $name $body $args
+}
+namespace eval ::buried {
+ proc mycmd4 args {return "mycmd"}
+ {my proc} mycmd5 args {return "mycmd"}
+}
+{::buried::my proc} mycmd6 args {return "another"}