diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-06-12 12:36:21 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-06-12 12:36:21 (GMT) |
| commit | aaebb1c79e1e2cc24890642ed96b6c020bcebefc (patch) | |
| tree | 2f8a2b355f5e2154b7c6b76bc764a73a65cd9268 /tests | |
| parent | 2b44404206c55f2894ce4b297fbce6176a70cf66 (diff) | |
| parent | b1856533641e3211ef6e5b973ef1b0ea065c20ea (diff) | |
| download | tcl-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.test | 14 |
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" |