From 2c7c059e0b8f086979af070fe9c61fa793bb0e3f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 25 Mar 2025 16:57:52 +0100
Subject: [PATCH] =?UTF-8?q?tests:=20guix-daemon:=20Wait=20for=20the=20?=
 =?UTF-8?q?=E2=80=98guix-daemon=E2=80=99=20service=20to=20be=20up.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* gnu/tests/base.scm (run-guix-daemon-test): Add “guix-daemon service is
up” test.

Change-Id: I4d44a1248599fec45c854c285d4da201c30eb00c
---
 gnu/tests/base.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/gnu/tests/base.scm b/gnu/tests/base.scm
index 0f7fb543a7831731107bc8075e6f03cd25cbf029..83e047f7e6421ee9416d54ead1d52e0609ba1e59 100644
--- a/gnu/tests/base.scm
+++ b/gnu/tests/base.scm
@@ -1157,6 +1157,13 @@ test."
           (test-runner-current (system-test-runner #$output))
           (test-begin "guix-daemon")
 
+          (test-assert "guix-service is running"
+            ;; Wait for 'guix-daemon' to be up.
+            (marionette-eval '(begin
+                                (use-modules (gnu services herd))
+                                (start-service 'guix-daemon))
+                             marionette))
+
           #$(guix-daemon-test-cases #~marionette)
 
           (test-end))))