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

fix leak in `racket/draw' instantiation

Browse Source 
original commit: 75dd61ebc36ecca41d591c81c290b0e776cef36b
This commit is contained in:
Matthew Flatt 2011-11-11 14:42:51 -07:00
parent fcd3a38c65
commit db9ae63828
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/tests/gracket/draw-mem.rkt Normal file
View File

@ -0,0 +1,19 @@
#lang racket
;; Check for a leak via multiple `racket/draw' instantiations.
(define-values (incs m)
(for/fold ([incs 0] [prev-mem 0]) ([i 10])
(parameterize ([current-namespace (make-base-namespace)])
(dynamic-require 'racket/draw #f))
(collect-garbage)
(sync (system-idle-evt))
(collect-garbage)
(let ([m (current-memory-use)])
(if (m . > . (+ prev-mem (* 100 1024)))
(values (add1 incs) m)
(values incs m)))))
(unless (incs . < . 5)
(error "multiple `racket/draw' instantiations seem to accumulate memory"))