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

.

Browse Source 
original commit: d6a27fafe20d33828a41dc4644218a214f6059fa
This commit is contained in:
Matthew Flatt 2003-04-15 15:37:50 +00:00
parent aa77427238
commit 13de451dfa
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/tests/mred/windowing.ss
View File

@ -26,7 +26,15 @@
(let ([s (make-semaphore)])
(flush-display)
(thread (lambda () (sleep 0.01) (semaphore-post s)))
(yield s)))
(test s 'yield (yield s))))
(let ([s (make-semaphore 1)])
(test s 'yield-wrapped (yield s)))
(let ([s (make-semaphore 1)])
(test (list s) 'yield-wrapped (yield (make-wrapped-waitable s (lambda (v) (list v))))))
(let ([s (make-semaphore)])
(thread (lambda () (sleep 0.01) (semaphore-post s)))
(test (list s) 'yield-wrapped (yield (make-wrapped-waitable s (lambda (v) (list v))))))
(define (enable-tests f)
(printf "Enable ~a~n" f)