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

* No nested code inspector for scribble sandboxes

Browse Source 
* No nested inspectors or memory limit for testing sandboxes

svn: r12857
This commit is contained in:
Eli Barzilay 2008-12-15 18:29:59 +00:00
parent b0758de6f1
commit 5141289bd7
2 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/scribble/eval.ss
View File

@ -244,7 +244,8 @@
[sandbox-error-output 'string]
[sandbox-eval-limits #f]
[sandbox-memory-limit #f]
[sandbox-make-inspector current-inspector])
[sandbox-make-inspector current-inspector]
[sandbox-make-code-inspector current-code-inspector])
(make-evaluator '(begin (require scheme/base)))))
(define (close-eval e)

21
collects/tests/mzscheme/testing.ss
View File

@ -77,17 +77,16 @@ transcript.
(define number-of-exn-tests 0)
(define (load-in-sandbox file)
(let ([e (parameterize ([(dynamic-require 'scheme/sandbox 'sandbox-security-guard)
(current-security-guard)]
[(dynamic-require 'scheme/sandbox 'sandbox-input)
current-input-port]
[(dynamic-require 'scheme/sandbox 'sandbox-output)
current-output-port]
[(dynamic-require 'scheme/sandbox 'sandbox-error-output)
current-error-port]
[(dynamic-require 'scheme/sandbox 'sandbox-eval-limits)
#f])
((dynamic-require 'scheme/sandbox 'make-evaluator) '(begin) #:requires (list 'scheme)))])
(define-syntax-rule (S id) (dynamic-require 'scheme/sandbox 'id))
(let ([e (parameterize ([(S sandbox-security-guard) (current-security-guard)]
[(S sandbox-input) current-input-port]
[(S sandbox-output) current-output-port]
[(S sandbox-error-output) current-error-port]
[(S sandbox-make-inspector) current-inspector]
[(S sandbox-make-code-inspector) current-code-inspector]
[(S sandbox-memory-limit) 100] ; 100mb per box
[(S sandbox-eval-limits) #f])
((S make-evaluator) '(begin) #:requires (list 'scheme)))])
(e `(load-relative "testing.ss"))
(e `(define real-error-port (quote ,real-error-port)))
(e `(define Section-prefix ,Section-prefix))