diff options
| author | dgp <dgp@noemail.net> | 2001-08-24 16:19:08 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2001-08-24 16:19:08 (GMT) |
| commit | d392ebb6dda832544b647edbf0a20d3b74d2c6f9 (patch) | |
| tree | 83a2c71e82588b352db0685f3f7eeaa9837568b3 /tests/autoMkindex.tcl | |
| parent | 98231ea70a2a753a798de23a560de2029c0200c1 (diff) | |
| download | tcl-d392ebb6dda832544b647edbf0a20d3b74d2c6f9.zip tcl-d392ebb6dda832544b647edbf0a20d3b74d2c6f9.tar.gz tcl-d392ebb6dda832544b647edbf0a20d3b74d2c6f9.tar.bz2 | |
* Backport of several bug fixes from HEAD to core-8-3-1-branch
FossilOrigin-Name: a44fa8045154481ccf04a807289ab46f4020ff5a
Diffstat (limited to 'tests/autoMkindex.tcl')
| -rw-r--r-- | tests/autoMkindex.tcl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/autoMkindex.tcl b/tests/autoMkindex.tcl index 2756358..8e9e74d 100644 --- a/tests/autoMkindex.tcl +++ b/tests/autoMkindex.tcl @@ -71,3 +71,12 @@ namespace eval ::buried { {my proc} mycmd5 args {return "mycmd"} } {::buried::my proc} mycmd6 args {return "another"} + +# A correctly functioning [auto_import] won't choke when a child +# namespace [namespace import]s from its parent. +# +namespace eval ::parent::child { + namespace import ::parent::* +} +proc ::parent::child::test {} {} + |