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

fix race conditions in some tests

Browse Source 
Closes #2940
This commit is contained in:
Matthew Flatt 2019-11-28 06:28:42 -07:00
parent da70c65f8d
commit 83fb6d2ca8
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -175,6 +175,7 @@
(test s2 sync/timeout SYNC-SLEEP-DELAY set)
(test #f sync/timeout SYNC-SLEEP-DELAY set))
(thread (lambda () (sleep) (semaphore-post s3)))
(sync (system-idle-evt))
(test s3 sync/timeout SYNC-SLEEP-DELAY (choice-evt s1 s2 s3))
(test #f sync/timeout SYNC-SLEEP-DELAY (choice-evt s1 s2 s3))
(semaphore-post s3)
@ -205,12 +206,14 @@
[set (choice-evt s1 s2 c)])
(test #f sync/timeout SYNC-SLEEP-DELAY set)
(thread (lambda () (channel-put c 12)))
(sync (system-idle-evt))
(test 12 sync/timeout SYNC-SLEEP-DELAY set)
(test #f sync/timeout SYNC-SLEEP-DELAY set)
(let* ([p (channel-put-evt c 85)]
[set (choice-evt s1 s2 p)])
(test #f sync/timeout SYNC-SLEEP-DELAY set)
(thread (lambda () (channel-get c)))
(sync (system-idle-evt))
(test p sync/timeout SYNC-SLEEP-DELAY set)
(test #f sync/timeout SYNC-SLEEP-DELAY set))))