daemons-systemd-test.el

(load-file "./daemons-systemd.el")

(ert-deftest systemd-parse-list-item-test ()
  (let ((input "accounts-daemon.service                      disabled")
        (expected '("accounts-daemon" ["accounts-daemon" "disabled"])))
    (should (equal expected
                   (daemons-systemd--parse-list-item input)))))

(ert-deftest systemd-is-simple-service-test ()
  (let ((input '("autofs" ["autofs" "disabled"])))
    (should (daemons-systemd--item-is-simple-service-p input)))
  (let ((input '("autovt@" ["autovt@" "disabled"])))
    (should (not (daemons-systemd--item-is-simple-service-p input)))))

(ert-deftest systemd-list-test ()
  (let* ((dummy-output "
accounts-daemon.service                      disabled
alsa-state.service                           static  
auditd.service                               enabled 
autovt@.service                              enabled ")
         (daemons--shell-command-to-string-fun (lambda (_) dummy-output))
         (expected '(("accounts-daemon" ["accounts-daemon" "disabled"])
                     ("alsa-state" ["alsa-state" "static"])
                     ("auditd" ["auditd" "enabled"]))))
    (should (equal expected
                   (daemons-systemd--list)))))