liminix

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README | LICENSE

test.fnl (470B)


      1 (local up-tree (require "s6-rc-up-tree"))
      2 
      3 (os.remove (os.getenv "TEST_LOG"))
      4 
      5 (let [[dir & services] arg]
      6   (set arg services)
      7   (up-tree.run dir))
      8 
      9 ;; the service starts
     10 ;; the service starts even if it is controlled
     11 ;; uncontrolled descendants start
     12 ;; controlled descendants don't start
     13 ;; descendants which depend on a _different_ controlled service, which is down, don't start
     14 ;; descendants which depend on a _different_ controlled service, which is up, do start