services: Add configuration action to miniflux-service-type.

* gnu/services/web.scm (miniflux-shepherd-service): Add configuration action.
* gnu/tests/web.scm (run-miniflux-test): Add configuration action check.

Change-Id: I515653070cc0c39fcbe31fef19d8745a1a8d47cb
Signed-off-by: Sharlatan Hellseher <sharlatanus@gmail.com>

2 files changed, 10 insertions, 1 deletions

diff --git a/gnu/services/web.scm b/gnu/services/web.scm
index 4ba2a2268d8..3354b3295b8 100644
--- a/gnu/services/web.scm
+++ b/gnu/services/web.scm
@@ -2460,7 +2460,10 @@ Use absolute path like @code{\"/var/run/miniflux/miniflux.sock\"} for a Unix soc
                               "-config-file"
                               #$config-file)
                         #:log-file #$log-file))
-              (stop #~(make-kill-destructor)))))))
+              (stop #~(make-kill-destructor))
+              (actions
+               (list
+                (shepherd-configuration-action config-file))))))))
 
 (define (miniflux-accounts config)
   (match-record config <miniflux-configuration>
diff --git a/gnu/tests/web.scm b/gnu/tests/web.scm
index 4f07eb967a8..5c8905f62b8 100644
--- a/gnu/tests/web.scm
+++ b/gnu/tests/web.scm
@@ -1016,6 +1016,12 @@ HTTP-PORT."
                  #:times 10
                  #:delay 2)))
 
+            (test-assert "Miniflux configuration action returns an existing file path"
+              (marionette-eval '(with-shepherd-action 'miniflux ('configuration)
+                                                      results
+                                  (file-exists? (car results)))
+                               marionette))
+
             (test-end)))))
   (gexp->derivation (string-append name "-test") test))