namespace: restore namespace import support

Commit 8e28d066 "fixed" infinite namespace import
recursion by simply disabling support for import.

This commit restores support by detecting self-import.

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 15 insertions, 0 deletions

diff --git a/tests/namespace.test b/tests/namespace.test
index 98acf3e..090fcf0 100644
--- a/tests/namespace.test
+++ b/tests/namespace.test
@@ -470,6 +470,21 @@ test namespace-11.1 {command caching} {
 	lappend result [ns1::cmd2]
 } {ns1 global}
 
+test namespace-12.1 {namespace import} {
+	namespace eval test_ns_scope1 {
+		proc a {} { return a }
+		namespace export a
+	}
+	namespace eval test_ns_scope2 {
+		namespace import ::test_ns_scope1::a
+		a
+	}
+} {a}
+
+test namespace-12.2 {namespace import recursive} -body {
+	namespace import *
+} -returnCodes error -match glob -result {import pattern "*" tries to import from namespace "*" into itself}
+
 foreach cmd [info commands test_ns_*] {
     rename $cmd ""
 }