diff options
author | dgp <dgp@users.sourceforge.net> | 2012-06-20 20:13:34 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2012-06-20 20:13:34 (GMT) |
commit | fa97b72e5eb7b22c29f11a45c41160a3a32e64bb (patch) | |
tree | 411e52b57560b7aff4e96229eeb8e6b651f37772 /tests | |
parent | 5f8dff42ac6dc46d1aca06a1e94c41ac27c41cf2 (diff) | |
parent | f9037344f87d9722ef8152dd4c5b404cdd7ba983 (diff) | |
download | tcl-fa97b72e5eb7b22c29f11a45c41160a3a32e64bb.zip tcl-fa97b72e5eb7b22c29f11a45c41160a3a32e64bb.tar.gz tcl-fa97b72e5eb7b22c29f11a45c41160a3a32e64bb.tar.bz2 |
merge 8.5
Diffstat (limited to 'tests')
-rw-r--r-- | tests/safe.test | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/safe.test b/tests/safe.test index 4bd8509..8879518 100644 --- a/tests/safe.test +++ b/tests/safe.test @@ -309,6 +309,20 @@ test safe-8.9 {safe source and return} -setup { catch {safe::interpDelete $i} removeFile $returnScript } -result ok +test safe-8.10 {safe source and return} -setup { + set returnScript [makeFile {return -level 2 "ok"} return.tcl] + catch {safe::interpDelete $i} +} -body { + safe::interpCreate $i + set token [safe::interpAddToAccessPath $i [file dirname $returnScript]] + $i eval [list apply {filename { + source $filename + error boom + }} $token/[file tail $returnScript]] +} -cleanup { + catch {safe::interpDelete $i} + removeFile $returnScript +} -result ok test safe-9.1 {safe interps' deleteHook} { set i "a"; |