lbailly/liminix
1
0
Fork 0
forked from DGNum/liminix
Code Pull requests 2 Activity Actions

implement fetch by path

Browse source
This commit is contained in:
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)
(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
(collect [k v (string.gmatch
(string.sub s (+ 1 nxt))
"(%g-)=(%g+)")]
(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]
(accumulate [match? true
@ -29,6 +30,7 @@
:add (fn [_ event-string]
(let [e (parse-uevent event-string)]
(tset db e.path e)))
:at-path (fn [_ path] (. db path))
}))
(var failed false)
@ -71,6 +73,15 @@ SEQNUM=1527")
(db:add sda-uevent)
(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
"when I search on multiple terms it uses all of them"
(let [db (database)]