mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2026-09-24 01:48:43 +00:00
Code Issues 1 Releases Wiki Activity

Add test case to help address #1705

Browse Source
This commit is contained in:
Calvin Rose
2026-01-24 12:23:01 -06:00
parent 3ecc9bc543
commit 33f5a0b319
1 changed files with 23 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/suite-ev2.janet
+23
View File
@@ -55,4 +55,27 @@
(ev/sleep 0.2)
(assert (deep= '(:error "deadline expired" nil) (ev/take super)) "deadline expirataion")
# Issue #1705 - ev select
(def supervisor (ev/chan 10))
(def ch (ev/chan))
(def ch2 (ev/chan))
(ev/go |(do
(ev/select ch ch2)
(:close ch)
"close ch...")
nil supervisor)
(ev/go |(do
(ev/sleep 0.05)
(:close ch2)
"close ch2...")
nil supervisor)
(assert (let [[status] (ev/take supervisor)] (= status :ok)) "status 1 ev/select")
(assert (let [[status] (ev/take supervisor)] (= status :ok)) "status 2 ev/select")
(ev/sleep 0.1) # can we do better?
(assert (= 0 (ev/count supervisor)) "empty supervisor")
(end-suite)