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

WIP add failing test that service starts

Browse Source
This commit is contained in:
Daniel Barlow
2024-03-06 00:32:38 +00:00
parent 570d29c368
commit 5d5dff6729
2 changed files with 34 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/ifwait/ifwait.fnl
View File

@@ -2,12 +2,13 @@
; (local { : view} (require :fennel))
(local { : assoc } (require :anoia))
(local { : assoc : system } (require :anoia))
(fn parse-args [args]
(match args
["-v" & rest] (assoc (parse-args rest) :verbose true)
["-t" timeout & rest] (assoc (parse-args rest) :timeout (tonumber timeout))
["-s" service & rest] (assoc (parse-args rest) :service service)
[linkname "up"] {:link linkname :expecting "up"}
[linkname "running"] {:link linkname :expecting "running"}
[linkname "present"] {:link linkname :expecting "present"}