dan
/
liminix
1
0
Fork 5
Code Issues 3 Pull Requests 1 Projects Releases Wiki Activity

implement fetch by path

main
Daniel Barlow 2024-04-20 22:20:43 +01:00
parent e34135c41a
commit b1c0560f4f
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
pkgs/devout/test.fnl
View File

@ -2,13 +2,14 @@
(import-macros { : expect= } :anoia.assert) (import-macros { : expect= } :anoia.assert)
(fn parse-uevent [s] (fn parse-uevent [s]
(let [(nl nxt) (string.find s "\0" 1 true)] (let [at (string.find s "@" 1 true)
(nl nxt) (string.find s "\0" 1 true)]
(doto (doto
(collect [k v (string.gmatch (collect [k v (string.gmatch
(string.sub s (+ 1 nxt)) (string.sub s (+ 1 nxt))
"(%g-)=(%g+)")] "(%g-)=(%g+)")]
(k:lower) v) (k:lower) v)
(tset :path (string.sub s 1 (- nl 1)))))) (tset :path (string.sub s (+ at 1) (- nl 1))))))
(fn event-matches? [e terms] (fn event-matches? [e terms]
(accumulate [match? true (accumulate [match? true
@ -29,6 +30,7 @@
:add (fn [_ event-string] :add (fn [_ event-string]
(let [e (parse-uevent event-string)] (let [e (parse-uevent event-string)]
(tset db e.path e))) (tset db e.path e)))
:at-path (fn [_ path] (. db path))
})) }))
(var failed false) (var failed false)
@ -71,6 +73,15 @@ SEQNUM=1527")
(db:add sda-uevent) (db:add sda-uevent)
(expect= (db:find {:devname "sdb"}) []))) (expect= (db:find {:devname "sdb"}) [])))
(example
"when I add a device, I can retrieve it by path"
(let [db (database)]
(db:add sda-uevent)
(let [m (db:at-path "/devices/pci0000:00/0000:00:13.0/usb1/1-1/1-1:1.0/host0/target0:0:0/0:0:0:0/block/sda")]
(expect= m.devname "sda")
(expect= m.major "8"))))
(example (example
"when I search on multiple terms it uses all of them" "when I search on multiple terms it uses all of them"
(let [db (database)] (let [db (database)]