From 3a46e41cde79bcd97ef9bb293a65a589b5f0fed2 Mon Sep 17 00:00:00 2001 From: Paulo Matos Date: Wed, 25 Sep 2019 14:47:46 +0200 Subject: [PATCH] Disable test many-vectors-in-reasonable-space? for cgc (#2832) This is currently failing in cgc: https://gitlab.com/racket/racket/-/jobs/303266624 --- pkgs/racket-test-core/tests/racket/will.rktl | 39 ++++++++++---------- 1 file changed, 20 insertions(+), 19 deletions(-) diff --git a/pkgs/racket-test-core/tests/racket/will.rktl b/pkgs/racket-test-core/tests/racket/will.rktl index 45edf09116..775a0bca0a 100644 --- a/pkgs/racket-test-core/tests/racket/will.rktl +++ b/pkgs/racket-test-core/tests/racket/will.rktl @@ -386,25 +386,26 @@ 'done (unbox (loop (sub1 n))))))))) -(let ([init-memory-use (current-memory-use)]) - (define done? #f) - (define t (thread (lambda () - ((dynamic-require ''allocates-many-vectors 'go)) - (set! done? #t)))) - (define watcher-t (thread - (lambda () - (let loop () - (sleep 0.1) - (define mu (current-memory-use)) - (printf "~s\n" mu) - (cond - [(mu . < . (+ init-memory-use (* 100 1024 1024))) - (loop)] - [else - (kill-thread t)]))))) - (sync t) - (kill-thread watcher-t) - (test #t 'many-vectors-in-reasonable-space? done?)) +(unless (eq? 'cgc (system-type 'gc)) + (let ([init-memory-use (current-memory-use)]) + (define done? #f) + (define t (thread (lambda () + ((dynamic-require ''allocates-many-vectors 'go)) + (set! done? #t)))) + (define watcher-t (thread + (lambda () + (let loop () + (sleep 0.1) + (define mu (current-memory-use)) + (printf "~s\n" mu) + (cond + [(mu . < . (+ init-memory-use (* 100 1024 1024))) + (loop)] + [else + (kill-thread t)]))))) + (sync t) + (kill-thread watcher-t) + (test #t 'many-vectors-in-reasonable-space? done?))) ;; ---------------------------------------- ;; Check that a thread that has a reference to