From 27a13cd060d7e968e7fb61de4d5e6b7816a67fb9 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 3 Jan 2021 10:53:57 -0700 Subject: [PATCH] replace hack that enables an unreliable timing test --- pkgs/racket-test-core/tests/racket/sync.rktl | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/pkgs/racket-test-core/tests/racket/sync.rktl b/pkgs/racket-test-core/tests/racket/sync.rktl index 4ac318aaae..7b8d205de8 100644 --- a/pkgs/racket-test-core/tests/racket/sync.rktl +++ b/pkgs/racket-test-core/tests/racket/sync.rktl @@ -774,10 +774,8 @@ 1000.0)] [real-took (/ (abs (- (current-milliseconds) real-msecs)) 1000.0)] [boundary (/ SYNC-BUSY-DELAY 6)]) - ;; Hack. - ;; The following test isn't reliable, so only Matthew should see it, - ;; and only in non-parallel mode: - (when (and (regexp-match #rx"(mflatt)|(matthewf)" (path->string (find-system-path 'home-dir))) + ;; Run unreliable timing test only in non-parallel mode: + (when (and (run-unreliable-tests? 'timing) (equal? "" Section-prefix)) (test busy? (lambda (a ax b c d) (> b c)) 'busy-wait? go took boundary real-took)))))