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

replace hack that enables an unreliable timing test

Browse Source
This commit is contained in:
Matthew Flatt 2021-01-03 10:53:57 -07:00
parent dc76e1b7e0
commit 27a13cd060
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/racket-test-core/tests/racket/sync.rktl
View File

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