test forbidden nested calls

svn: r13342
2009-01-31 20:24:35 +00:00 · 2009-01-31 20:24:35 +00:00 · 858e7dd94e
commit 858e7dd94e
parent 339aa71441
1 changed files with 4 additions and 0 deletions
--- 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)])