From b1856533641e3211ef6e5b973ef1b0ea065c20ea Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Tue, 12 Jun 2012 12:35:18 +0000
Subject: add test that triggered reporting of [Bug 3530230]

---
 tests/safe.test | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

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";
-- 
cgit v0.12