forked from DGNum/liminix
35 lines
931 B
Fennel
35 lines
931 B
Fennel
(local { : view} (require :fennel))
|
|
(import-macros { : expect= } :anoia.assert)
|
|
|
|
(local subject (require :watch))
|
|
|
|
|
|
|
|
;; Events come from the netlink socket as an initial summary line
|
|
;; followed by a NUL character followed by newline-separated key=value
|
|
;; pairs. For ease of editing we don't have NULs in events.txt,
|
|
;; so we need to massage it into shape here
|
|
|
|
(local events
|
|
(with-open [f (io.open "./events.txt" :r)]
|
|
(let [text (string.gsub (f:read "*a") "\n\n" "\0") ]
|
|
(icollect [n (string.gmatch text "([^\0]+)")]
|
|
(string.gsub n "\n" "\0" 1)))))
|
|
|
|
|
|
(fn next-event []
|
|
(var i 0)
|
|
(fn []
|
|
(let [i_ (+ 1 i)
|
|
e (. events i_)]
|
|
(set i i_)
|
|
e)))
|
|
|
|
;; this tests event parsing but not whether anything
|
|
;; happens as a result of processing them
|
|
(subject.run-with-fh
|
|
{ :read (next-event) }
|
|
["-s" "foo" "-n" (os.getenv "TMPDIR") "partname=backup-disk" ]
|
|
)
|
|
|
|
(print "OK")
|