From 858e7dd94e1a1f9a5c9af3696271a406d243bb4f Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sat, 31 Jan 2009 20:24:35 +0000 Subject: [PATCH] test forbidden nested calls svn: r13342 --- collects/tests/mzscheme/sandbox.ss | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/collects/tests/mzscheme/sandbox.ss b/collects/tests/mzscheme/sandbox.ss index 11a67e21b0..1a3abd0e8f 100644 --- a/collects/tests/mzscheme/sandbox.ss +++ b/collects/tests/mzscheme/sandbox.ss @@ -149,6 +149,10 @@ --top-- (make-base-evaluator!) (kill-evaluator ev) --eval-- 123 =err> "terminated .evaluator-killed.$" + ;; nested calls are forbidden + --top-- (make-base-evaluator!) + --eval-- (,ev 1) =err> "nested evaluator call" + ;; eval-limits apply to the sandbox creation too --top-- (parameterize ([sandbox-eval-limits '(0.25 5)])