[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
branch master updated: tests: cuirass: Restore "cuirass running".
From: |
guix-commits |
Subject: |
branch master updated: tests: cuirass: Restore "cuirass running". |
Date: |
Tue, 23 Feb 2021 05:57:11 -0500 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- branch master updated: tests: cuirass: Restore "cuirass running".,
guix-commits <=