From 77bcfde77c53c75713a1adb48692bab8a15eb9c9 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 28 Jun 2019 09:57:55 -0600 Subject: [PATCH] fix a memory-accounting test --- pkgs/racket-test-core/tests/racket/will.rktl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/pkgs/racket-test-core/tests/racket/will.rktl b/pkgs/racket-test-core/tests/racket/will.rktl index b7d5c6ebfb..9017e7ff56 100644 --- 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)))