Adapt Safe Base for interpreter names with namespace separators. Add a test and revise safe(n). Fixes bug [693851].

1 files changed, 17 insertions, 0 deletions

diff --git a/tests/safe.test b/tests/safe.test
index 3511625..1415b09 100644
--- a/tests/safe.test
+++ b/tests/safe.test
@@ -362,6 +362,23 @@ test safe-7.3 {check that safe subinterpreters work} {
     list $g $h [interp eval $j {join {o k} ""}] [safe::interpDelete $i] \
             [interp exists $j] [info vars ::safe::S*]
 } {{} {} ok {} 0 {}}
+test safe-7.3.1 {check that safe subinterpreters work with namespace names} -setup {
+} -body {
+    set g [interp slaves]
+    if {$g ne {}} {
+        append g { -- residue of an earlier test}
+    }
+    set h [info vars ::safe::S*]
+    if {$h ne {}} {
+        append h { -- residue of an earlier test}
+    }
+    set i [safe::interpCreate foo::bar]
+    set j [safe::interpCreate [list $i hello::world]]
+    list $g $h [interp eval $j {join {o k} ""}] \
+            [foo::bar eval {hello::world eval {join {o k} ""}}] \
+            [safe::interpDelete $i] \
+            [interp exists $j] [info vars ::safe::S*]
+} -match glob -result {{} {} ok ok {} 0 {}}
 test safe-7.4 {tests specific path and positive search} -setup {
 } -body {
     set i [safe::interpCreate -nostat -nested 1 -accessPath [list [info library]]]