diff options
| author | welch <welch@noemail.net> | 1999-03-31 22:37:17 (GMT) |
|---|---|---|
| committer | welch <welch@noemail.net> | 1999-03-31 22:37:17 (GMT) |
| commit | e4b92ec177a9756d4959006f67e37331d0a90625 (patch) | |
| tree | bf16d0f3f29235e565ec12ae89644e0d6b372537 /tests/pkgMkIndex.test | |
| parent | 9c796ef7e678c11552f654c3a7adf7796a775664 (diff) | |
| download | tcl-e4b92ec177a9756d4959006f67e37331d0a90625.zip tcl-e4b92ec177a9756d4959006f67e37331d0a90625.tar.gz tcl-e4b92ec177a9756d4959006f67e37331d0a90625.tar.bz2 | |
Tests for pkg_mkIndex when input files do "namespace import". BUG 1327
FossilOrigin-Name: fcf8cd928ebff5813480a2ea2669e8aa0311b5a2
Diffstat (limited to 'tests/pkgMkIndex.test')
| -rw-r--r-- | tests/pkgMkIndex.test | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/tests/pkgMkIndex.test b/tests/pkgMkIndex.test index 3251feb..5b14989 100644 --- a/tests/pkgMkIndex.test +++ b/tests/pkgMkIndex.test @@ -8,7 +8,7 @@ # Copyright (c) 1998 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: pkgMkIndex.test,v 1.4 1998/11/12 05:54:21 welch Exp $ +# RCS: @(#) $Id: pkgMkIndex.test,v 1.5 1999/03/31 22:37:17 welch Exp $ if {[string compare test [info procs test]] == 1} then {source defs} @@ -331,6 +331,13 @@ if {[file exists $x]} { puts "Skipping pkgMkIndex-10.1 (index of DLL and script)" } +# Tolerate "namespace import" at the global scope + +test pkgMkIndex-11.1 {conflicting namespace imports} { + pkgtest::runIndex pkg import.tcl +} {0 {{fubar:1.0 {tclPkgSetup {import.tcl source ::fubar::foo}}}}} + + # # cleanup # |