suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

test forbidden nested calls

Browse Source 
svn: r13342
This commit is contained in:
Eli Barzilay 2009-01-31 20:24:35 +00:00
parent 339aa71441
commit 858e7dd94e
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/mzscheme/sandbox.ss
View File

@ -149,6 +149,10 @@
--top-- (make-base-evaluator!) (kill-evaluator ev) --top-- (make-base-evaluator!) (kill-evaluator ev)
--eval-- 123 =err> "terminated .evaluator-killed.$" --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 ;; eval-limits apply to the sandbox creation too
--top-- --top--
(parameterize ([sandbox-eval-limits '(0.25 5)]) (parameterize ([sandbox-eval-limits '(0.25 5)])