hans/uni-channel
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Unichannel-wait added.

Browse Source
This commit is contained in:
Hans Dijkema
2026-07-06 15:17:43 +02:00
parent 751099152b
commit e14494f3b3
4 changed files with 29 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/main.rkt
+2
View File
@@ -40,6 +40,7 @@
(uni-channel-put ch '(sync returns this value))
(check-equal? (sync (uni-channel-get-evt ch)) '(sync returns this value))
(uni-channel-close ch)
(uni-channel-wait ch)
(check-true (uni-channel-closed? ch))
(check-exn exn:fail? (lambda () (uni-channel-put ch 'after-close))))
@@ -86,6 +87,7 @@
(check-exn exn:fail? (lambda () (uni-channel-get writer)))
(check-exn exn:fail? (lambda () (uni-channel-put reader 'nope)))
(uni-channel-close writer)
(uni-channel-wait writer)
(check-true (uni-channel-closed? writer))
(check-true (eof-object? (uni-channel-get reader))))