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

adjust limits on tight test, others two, clarified comments

Browse Source 
svn: r12862
This commit is contained in:
Eli Barzilay 2008-12-15 21:32:50 +00:00
parent 25b27a8b08
commit f8dff60a01
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -152,7 +152,7 @@
(make-evaluator 'scheme/base (make-evaluator 'scheme/base
'(define a (for/list ([i (in-range 10)]) '(define a (for/list ([i (in-range 10)])
(collect-garbage) (collect-garbage)
(make-string 500000)))))) (make-string 200000))))))
=err> "out of memory")) =err> "out of memory"))
;; i/o ;; i/o
@ -423,8 +423,8 @@
--top-- --top--
(set! ev (parameterize ([sandbox-output 'bytes] (set! ev (parameterize ([sandbox-output 'bytes]
[sandbox-error-output current-output-port] [sandbox-error-output current-output-port]
[sandbox-memory-limit 20] [sandbox-memory-limit 2]
[sandbox-eval-limits '(0.25 15)]) [sandbox-eval-limits '(0.25 1)])
(make-evaluator 'scheme/base))) (make-evaluator 'scheme/base)))
;; GCing is needed to allow these to happen (note: the memory limit is very ;; GCing is needed to allow these to happen (note: the memory limit is very
;; tight here, this test usually fails if the sandbox library is not ;; tight here, this test usually fails if the sandbox library is not
@ -490,10 +490,11 @@
(define b 1) (define b 1)
(length (length
(for/fold ([v null]) ([i (in-range 20)]) (for/fold ([v null]) ([i (in-range 20)])
;; Increases size of sandbox: ;; increases size of sandbox: it's reachable from it (outside of
;; this evaluation) because `a' is defined there
(set! a (cons (make-bytes 500000) a)) (set! a (cons (make-bytes 500000) a))
(collect-garbage) (collect-garbage)
;; Increases size of evaluation: ;; increases size of the current evaluation
(cons (make-bytes 500000) v))) (cons (make-bytes 500000) v)))
=err> "out of memory" =err> "out of memory"
b => 1)) b => 1))