fix a memory-accounting test

2019-06-28 09:57:55 -06:00 · 2019-06-28 09:57:55 -06:00 · 77bcfde77c
commit 77bcfde77c
parent 75ff7870bd
1 changed files with 3 additions and 1 deletions
--- a/pkgs/racket-test-core/tests/racket/will.rktl
+++ b/pkgs/racket-test-core/tests/racket/will.rktl
@ -127,7 +127,9 @@
    (collect-garbage)
    (test #t andmap (lambda (v)
                      (v . >= . 100000))
-          (map current-memory-use c))))
+          (map current-memory-use c))
+    ;; Make sure boxes are retained:
+    (test #t andmap custodian-box? b)))

 (let ()
  (define c1 (make-custodian (current-custodian)))