diff options
| author | dgp <dgp@noemail.net> | 2001-05-03 22:38:19 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2001-05-03 22:38:19 (GMT) |
| commit | 258ea9980829b44d0bba6158ee41f931834c0036 (patch) | |
| tree | 3556e64731aaee88def2382ca03907296de5e342 /tests | |
| parent | 74087f4077b771f8773feb3fd928713fe4545d4d (diff) | |
| download | tcl-258ea9980829b44d0bba6158ee41f931834c0036.zip tcl-258ea9980829b44d0bba6158ee41f931834c0036.tar.gz tcl-258ea9980829b44d0bba6158ee41f931834c0036.tar.bz2 | |
Fix for Bug 420186
FossilOrigin-Name: 8d1325ceb93b418e876e014351097597e9136ace
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/autoMkindex.tcl | 9 | ||||
| -rw-r--r-- | tests/autoMkindex.test | 6 |
2 files changed, 12 insertions, 3 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 {} {} + diff --git a/tests/autoMkindex.test b/tests/autoMkindex.test index 4be6bee..77c4d80 100644 --- a/tests/autoMkindex.test +++ b/tests/autoMkindex.test @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: autoMkindex.test,v 1.11 2000/04/10 17:18:57 ericm Exp $ +# RCS: @(#) $Id: autoMkindex.test,v 1.12 2001/05/03 22:38:20 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -70,7 +70,7 @@ test autoMkindex-1.3 {examine tclIndex} { } namespace delete tcl_autoMkindex_tmp set ::result -} "{::buried::explicit $element} {::buried::inside $element} {{::buried::my proc} $element} {::buried::mycmd1 $element} {::buried::mycmd4 $element} {::buried::myproc $element} {::buried::pub_one $element} {::buried::pub_two $element} {::buried::relative $element} {::buried::under::neath $element} {::buried::within $element} {indented $element} {normal $element} {top $element}" +} "{::buried::explicit $element} {::buried::inside $element} {{::buried::my proc} $element} {::buried::mycmd1 $element} {::buried::mycmd4 $element} {::buried::myproc $element} {::buried::pub_one $element} {::buried::pub_two $element} {::buried::relative $element} {::buried::under::neath $element} {::buried::within $element} {::parent::child::test $element} {indented $element} {normal $element} {top $element}" test autoMkindex-2.1 {commands on the autoload path can be imported} { @@ -138,7 +138,7 @@ test autoMkindex-3.2 {auto_mkindex_parser::command} { AutoMkindexTestReset set ::result -} "{::buried::explicit $element} {::buried::inside $element} {{::buried::my proc} $element} {::buried::mycmd1 $element} {::buried::mycmd2 $element} {::buried::mycmd4 $element} {::buried::myproc $element} {::buried::pub_one $element} {::buried::pub_two $element} {::buried::relative $element} {::buried::under::neath $element} {::buried::within $element} {indented $element} {mycmd3 $element} {normal $element} {top $element}" +} "{::buried::explicit $element} {::buried::inside $element} {{::buried::my proc} $element} {::buried::mycmd1 $element} {::buried::mycmd2 $element} {::buried::mycmd4 $element} {::buried::myproc $element} {::buried::pub_one $element} {::buried::pub_two $element} {::buried::relative $element} {::buried::under::neath $element} {::buried::within $element} {::parent::child::test $element} {indented $element} {mycmd3 $element} {normal $element} {top $element}" test autoMkindex-3.3 {auto_mkindex_parser::command} {knownBug} { |