diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-05-31 14:52:40 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-05-31 14:52:40 (GMT) |
| commit | d8dbcfab2c16c65a16daffe6aaa9ed531079dfad (patch) | |
| tree | 962be9f1dcd075bf4cc7af07efcc7055822902ee | |
| parent | 88726e934130098aa10cde9b33859d45a8c87bdd (diff) | |
| download | tcl-d8dbcfab2c16c65a16daffe6aaa9ed531079dfad.zip tcl-d8dbcfab2c16c65a16daffe6aaa9ed531079dfad.tar.gz tcl-d8dbcfab2c16c65a16daffe6aaa9ed531079dfad.tar.bz2 | |
[Bug 3531089] Added test to stop this from happening again
| -rw-r--r-- | tests/safe.test | 5 |
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 { |