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)] 1000.0)]
[real-took (/ (abs (- (current-milliseconds) real-msecs)) 1000.0)] [real-took (/ (abs (- (current-milliseconds) real-msecs)) 1000.0)]
[boundary (/ SYNC-BUSY-DELAY 6)]) [boundary (/ SYNC-BUSY-DELAY 6)])
;; Hack. ;; Run unreliable timing test only in non-parallel mode:
;; The following test isn't reliable, so only Matthew should see it, (when (and (run-unreliable-tests? 'timing)
;; and only in non-parallel mode:
(when (and (regexp-match #rx"(mflatt)|(matthewf)" (path->string (find-system-path 'home-dir)))
(equal? "" Section-prefix)) (equal? "" Section-prefix))
(test busy? (lambda (a ax b c d) (> b c)) 'busy-wait? go took boundary real-took))))) (test busy? (lambda (a ax b c d) (> b c)) 'busy-wait? go took boundary real-took)))))