summaryrefslogtreecommitdiffstats
path: root/tests/safe.test
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2012-05-31 14:52:40 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2012-05-31 14:52:40 (GMT)
commitd8dbcfab2c16c65a16daffe6aaa9ed531079dfad (patch)
tree962be9f1dcd075bf4cc7af07efcc7055822902ee /tests/safe.test
parent88726e934130098aa10cde9b33859d45a8c87bdd (diff)
downloadtcl-d8dbcfab2c16c65a16daffe6aaa9ed531079dfad.zip
tcl-d8dbcfab2c16c65a16daffe6aaa9ed531079dfad.tar.gz
tcl-d8dbcfab2c16c65a16daffe6aaa9ed531079dfad.tar.bz2
[Bug 3531089] Added test to stop this from happening again
Diffstat (limited to 'tests/safe.test')
-rw-r--r--tests/safe.test5
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/safe.test b/tests/safe.test
index f270248..dcd5bfd 100644
--- a/tests/safe.test
+++ b/tests/safe.test
@@ -204,6 +204,11 @@ test safe-7.2 {tests specific path and interpFind/AddToAccessPath} -body {
[safe::interpConfigure $i]\
[safe::interpDelete $i]
} -match glob -result "{\$p(:0:)} {\$p(:*:)} 1 {can't find package http 1} {-accessPath {[list $tcl_library */dummy/unixlike/test/path]} -statics 0 -nested 1 -deleteHook {}} {}"
+test safe-7.3 {check that safe subinterpreters work} {
+ set i [safe::interpCreate]
+ set j [safe::interpCreate [list $i x]]
+ list [interp eval $j {join {o k} ""}] [safe::interpDelete $i] [interp exists $j]
+} {ok {} 0}
# test source control on file name
test safe-8.1 {safe source control on file} -setup {