summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2012-06-12 12:36:21 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2012-06-12 12:36:21 (GMT)
commitaaebb1c79e1e2cc24890642ed96b6c020bcebefc (patch)
tree2f8a2b355f5e2154b7c6b76bc764a73a65cd9268 /tests
parent2b44404206c55f2894ce4b297fbce6176a70cf66 (diff)
parentb1856533641e3211ef6e5b973ef1b0ea065c20ea (diff)
downloadtcl-aaebb1c79e1e2cc24890642ed96b6c020bcebefc.zip
tcl-aaebb1c79e1e2cc24890642ed96b6c020bcebefc.tar.gz
tcl-aaebb1c79e1e2cc24890642ed96b6c020bcebefc.tar.bz2
add test that triggered reporting of [Bug 3530230]
Diffstat (limited to 'tests')
-rw-r--r--tests/safe.test14
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/safe.test b/tests/safe.test
index dcd5bfd..4a2792e 100644
--- a/tests/safe.test
+++ b/tests/safe.test
@@ -334,6 +334,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} -setup {
set i "a"