branch master updated: tests: cuirass: Restore "cuirass running".

[guix-commits]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 0de0074  tests: cuirass: Restore "cuirass running".
0de0074 is described below

commit 0de0074844f3391c7c85537f66bfcab288dce8dc
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Tue Feb 23 11:54:53 2021 +0100

    tests: cuirass: Restore "cuirass running".
    
    This is a follow-up of ab054868afe6a4ba9d8aa9943e265bd6a871d0ae. The test 
was
    failing because the Shepherd control socket wasn't ready yet. Restore it but
    make sure that the control socket is available first.
    
    * gnu/tests/cuirass.scm ("shepherd socket ready"): New test.
    ("cuirass running"): Restore it.
---
 gnu/tests/cuirass.scm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/gnu/tests/cuirass.scm b/gnu/tests/cuirass.scm
index 4aa7a29..04a7a71 100644
--- a/gnu/tests/cuirass.scm
+++ b/gnu/tests/cuirass.scm
@@ -191,6 +191,32 @@
 
             (test-begin "cuirass")
 
+            ;; XXX: Shepherd reads the config file *before* binding its
+            ;; control socket, so /var/run/shepherd/socket might not exist yet
+            ;; when the 'marionette' service is started.
+            (test-assert "shepherd socket ready"
+              (marionette-eval
+               `(begin
+                  (use-modules (gnu services herd))
+                  (let loop ((i 10))
+                    (cond ((file-exists? (%shepherd-socket-file))
+                           #t)
+                          ((> i 0)
+                           (sleep 1)
+                           (loop (- i 1)))
+                          (else
+                           'failure))))
+               marionette))
+
+            ;; Wait for cuirass to be up and running.
+            (test-assert "cuirass running"
+              (marionette-eval
+               '(begin
+                  (use-modules (gnu services herd))
+                  (start-service 'cuirass)
+                  #t)
+               marionette))
+
             (test-assert "cuirass-web running"
               (begin
                 (wait-for-tcp-port #$cuirass-web-port marionette)