From 13de451dfa3b99635580c5b0450d0489e503b7ca Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 15 Apr 2003 15:37:50 +0000 Subject: [PATCH] . original commit: d6a27fafe20d33828a41dc4644218a214f6059fa --- collects/tests/mred/windowing.ss | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/collects/tests/mred/windowing.ss b/collects/tests/mred/windowing.ss index 8b37b686..7ae12bdc 100644 --- a/collects/tests/mred/windowing.ss +++ b/collects/tests/mred/windowing.ss @@ -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)