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

Disable test many-vectors-in-reasonable-space? for cgc (#2832)

Browse Source 
This is currently failing in cgc:
     https://gitlab.com/racket/racket/-/jobs/303266624
This commit is contained in:
Paulo Matos 2019-09-25 14:47:46 +02:00 committed by GitHub
parent 6d7ae5e1d2
commit 3a46e41cde
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 20 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -386,7 +386,8 @@
'done 'done
(unbox (loop (sub1 n))))))))) (unbox (loop (sub1 n)))))))))
(let ([init-memory-use (current-memory-use)]) (unless (eq? 'cgc (system-type 'gc))
(let ([init-memory-use (current-memory-use)])
(define done? #f) (define done? #f)
(define t (thread (lambda () (define t (thread (lambda ()
((dynamic-require ''allocates-many-vectors 'go)) ((dynamic-require ''allocates-many-vectors 'go))
@ -404,7 +405,7 @@
(kill-thread t)]))))) (kill-thread t)])))))
(sync t) (sync t)
(kill-thread watcher-t) (kill-thread watcher-t)
(test #t 'many-vectors-in-reasonable-space? done?)) (test #t 'many-vectors-in-reasonable-space? done?)))
;; ---------------------------------------- ;; ----------------------------------------
;; Check that a thread that has a reference to ;; Check that a thread that has a reference to