From d008d60e23ad3c9d9b90664b3bc1a5bde3475e74 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 30 Jun 2020 07:27:40 -0600 Subject: [PATCH] test repair This change was meant to be par tof b00e8415b7. --- pkgs/racket-test-core/tests/racket/will.rktl | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/pkgs/racket-test-core/tests/racket/will.rktl b/pkgs/racket-test-core/tests/racket/will.rktl index 1250b290ac..a0723614e9 100644 --- a/pkgs/racket-test-core/tests/racket/will.rktl +++ b/pkgs/racket-test-core/tests/racket/will.rktl @@ -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])