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

fix a memory-accounting test

Browse Source
This commit is contained in:
Matthew Flatt 2019-06-28 09:57:55 -06:00
parent 75ff7870bd
commit 77bcfde77c
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/racket-test-core/tests/racket/will.rktl
View File

@ -127,7 +127,9 @@
(collect-garbage) (collect-garbage)
(test #t andmap (lambda (v) (test #t andmap (lambda (v)
(v . >= . 100000)) (v . >= . 100000))
(map current-memory-use c)))) (map current-memory-use c))
;; Make sure boxes are retained:
(test #t andmap custodian-box? b)))
(let () (let ()
(define c1 (make-custodian (current-custodian))) (define c1 (make-custodian (current-custodian)))