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

make draw-mem test more reliable

Browse Source
This commit is contained in:
Matthew Flatt 2012-01-09 16:07:20 -07:00
parent 23010fc495
commit 7b4fd9b275
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/tests/gracket/draw-mem.rkt
View File

@ -4,8 +4,10 @@
(define my-ns-channel (make-parameter #f)) (define my-ns-channel (make-parameter #f))
(define N 20)
(define-values (incs m ns) (define-values (incs m ns)
(for/fold ([incs 0] [max-mem 0] [ns #f]) ([i 10]) (for/fold ([incs 0] [max-mem 0] [accum #f]) ([i N])
(define ns (make-base-namespace)) (define ns (make-base-namespace))
(parameterize ([current-namespace ns] (parameterize ([current-namespace ns]
[my-ns-channel ns]) [my-ns-channel ns])
@ -15,10 +17,10 @@
(collect-garbage) (collect-garbage)
(let ([m (current-memory-use)]) (let ([m (current-memory-use)])
(printf "~s\n" m) (printf "~s\n" m)
(if (m . > . max-mem) (if (m . > . (* 1.1 max-mem))
(values (add1 incs) m 'ns) (values (add1 incs) m accum)
(values incs max-mem 'ns))))) (values incs max-mem accum)))))
(unless (incs . < . 5) (unless (incs . < . (/ N 3))
(error "multiple `racket/draw' instantiations seem to accumulate memory")) (error "multiple `racket/draw' instantiations seem to accumulate memory"))