summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorwelch <welch>1999-03-31 22:37:17 (GMT)
committerwelch <welch>1999-03-31 22:37:17 (GMT)
commitae56f9fc8840d99814f8fc8986fe6445ec9a57e6 (patch)
treebf16d0f3f29235e565ec12ae89644e0d6b372537
parent0fc6a714dac2374c5a77e0403d1015d86ca19471 (diff)
downloadtcl-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.test9
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
#