forked from DGNum/liminix
25 lines
585 B
Fennel
25 lines
585 B
Fennel
(local fennel (require :fennel))
|
|
|
|
(fn event-generator [events]
|
|
(coroutine.wrap
|
|
(fn []
|
|
(each [_ e (ipairs events)] (coroutine.yield e)))))
|
|
|
|
(fn file-events [path]
|
|
(let [data (with-open [e (io.open path "r")] (e:read "*a"))
|
|
parse (fennel.parser data)]
|
|
(icollect [_ ast parse]
|
|
ast)))
|
|
|
|
|
|
(set _G.arg (doto ["-v" "dummy0" "up"] (tset 0 "test")))
|
|
|
|
(local ifwait (require :ifwait))
|
|
|
|
|
|
|
|
(let [gen (event-generator (file-events "events-fixture"))]
|
|
(ifwait.run #gen)
|
|
(match (pcall gen)
|
|
(true _) true
|
|
(false msg) (error "didn't detect dummy0 up event")))
|