From dcc26b1b90794c1a1ea9d4189bac112ed94ee418 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 27 Nov 2019 05:51:26 -0700 Subject: [PATCH] adjust GC will test for CGC Closes #2935 --- pkgs/racket-test-core/tests/racket/will.rktl | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/pkgs/racket-test-core/tests/racket/will.rktl b/pkgs/racket-test-core/tests/racket/will.rktl index 775a0bca0a..f62c64a439 100644 --- a/pkgs/racket-test-core/tests/racket/will.rktl +++ b/pkgs/racket-test-core/tests/racket/will.rktl @@ -122,8 +122,9 @@ (mk-finalized n) (loop (sub1 n)))) (gc) - ;; finalize at least half? - (test #t > (length removed) 50) + (unless (eq? 'cgc (system-type 'gc)) + ;; finalize at least half + (test #t > (length removed) 50)) (test #f ormap symbol? removed) (test 12 custodian-box-value b1) (loop (sub1 m)))) @@ -135,7 +136,8 @@ (test b1 sync/timeout 0 b1) (test #f ormap values (map custodian-box-value saved)) (gc) - (test #t <= 5 (apply + (map (lambda (v) (if (symbol? v) 1 0)) removed)))))) + (unless (eq? 'cgc (system-type 'gc)) + (test #t <= 5 (apply + (map (lambda (v) (if (symbol? v) 1 0)) removed))))))) (when (custodian-memory-accounting-available?) ;; Check custodian boxes for accounting