diff options
| author | welch <welch> | 1999-03-31 22:37:17 (GMT) |
|---|---|---|
| committer | welch <welch> | 1999-03-31 22:37:17 (GMT) |
| commit | ae56f9fc8840d99814f8fc8986fe6445ec9a57e6 (patch) | |
| tree | bf16d0f3f29235e565ec12ae89644e0d6b372537 | |
| parent | 0fc6a714dac2374c5a77e0403d1015d86ca19471 (diff) | |
| download | tcl-ae56f9fc8840d99814f8fc8986fe6445ec9a57e6.zip tcl-ae56f9fc8840d99814f8fc8986fe6445ec9a57e6.tar.gz tcl-ae56f9fc8840d99814f8fc8986fe6445ec9a57e6.tar.bz2 | |
Tests for pkg_mkIndex when input files do "namespace import". BUG 1327
| -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 # |