newedge/liminix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

implement unsubscribe

Browse Source 
and add ids to subscribe so that there's a unique identifier
to pass to unsubscribe
This commit is contained in:
Daniel Barlow
2024-04-23 20:12:46 +01:00
parent cbb1de804e
commit 52eb283a26
2 changed files with 16 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
pkgs/devout/test.fnl
View File

@@ -119,11 +119,22 @@ MINOR=17")
(var received [])
(let [db (database)
subscriber (fn [e] (table.insert received e))]
(db:subscribe subscriber {:devname "/dev/sdb1"})
(db:subscribe :me subscriber {:devname "/dev/sdb1"})
(db:add sdb1-insert)
(db:add sda-uevent)
(db:add sdb1-remove)
(expect= (# received) 2)))
(example
"I can unsubscribe after subscribing"
(var received [])
(let [db (database)
subscriber (fn [e] (table.insert received e))]
(db:subscribe :me subscriber {:devname "/dev/sdb1"})
(db:unsubscribe :me)
(db:add sdb1-insert)
(db:add sda-uevent)
(db:add sdb1-remove)
(expect= (# received) 0)))
(if failed (os.exit 1) (print "OK"))