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

test repair

Browse Source 
This change was meant to be par tof b00e8415b7.
This commit is contained in:
Matthew Flatt 2020-06-30 07:27:40 -06:00
parent 193850f7dc
commit d008d60e23
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -254,7 +254,7 @@
(define t (parameterize ([current-custodian c])
(thread (lambda ()
(semaphore-wait s)
(define b (make-phantom-bytes (expt 2 29)))
(define b (make-phantom-bytes (expt 2 bits)))
(test #t phantom-bytes? b)
(test #f phantom-bytes? 0)
(semaphore-wait s)
@ -266,16 +266,16 @@
(define mc (current-memory-use c))
(semaphore-post s)
(sync (system-idle-evt))
(test #t > (current-memory-use) (+ m (expt 2 28)))
(test #t > (current-memory-use) (+ m (expt 2 (sub1 bits))))
(collect-garbage)
(test #t > (current-memory-use) (+ m (expt 2 28)))
(test #t > (current-memory-use c) (+ mc (expt 2 28)))
(test #t > (current-memory-use) (+ m (expt 2 (sub1 bits))))
(test #t > (current-memory-use c) (+ mc (expt 2 (sub1 bits))))
(semaphore-post s)
(sync (system-idle-evt))
(test #t < (current-memory-use) (+ m (expt 2 28)))
(test #t < (current-memory-use) (+ m (expt 2 (sub1 bits))))
(collect-garbage)
(test #t < (current-memory-use) (+ m (expt 2 28)))
(test #t < (current-memory-use c) (+ mc (expt 2 28)))
(test #t < (current-memory-use) (+ m (expt 2 (sub1 bits))))
(test #t < (current-memory-use c) (+ mc (expt 2 (sub1 bits))))
(semaphore-post s)
(let ([done? #f])