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

disable timing-sensitive thread test by default

Browse Source 
Closes #2978
This commit is contained in:
Matthew Flatt 2019-12-18 06:38:22 -07:00
parent 22a784d25e
commit c61dc30560
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/racket-test-core/tests/racket/thread.rktl
View File

@ -22,7 +22,8 @@
(define (test-set-balance as bs cs ds (define (test-set-balance as bs cs ds
sa sb sc sd sa sb sc sd
a% b% c% d%) a% b% c% d%)
(when (equal? "" Section-prefix) (when (and (run-unreliable-tests? 'timing)
(equal? "" Section-prefix))
(let ([a (box 0)] (let ([a (box 0)]
[b (box 0)] [b (box 0)]
[c (box 0)] [c (box 0)]
@ -52,7 +53,7 @@
[vc (unbox c)] [vc (unbox c)]
[vd (unbox d)]) [vd (unbox d)])
(define (roughly= x y) (define (roughly= x y)
(<= (* (- x 1) 0.9) y (* (+ x 1) 1.1))) (<= (- (* (- x 1) 0.9) 10) y (+ (* (+ x 1) 1.1) 10)))
(test #t roughly= vb (* b% va)) (test #t roughly= vb (* b% va))
(test #t roughly= vc (* c% va)) (test #t roughly= vc (* c% va))