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

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

@ -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