From 31b39f2a336270048574ede1ed1619ff11f95a0a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sun, 5 Nov 2023 18:04:16 +0100
Subject: [PATCH] tests: inetd: Avoid race condition when looking for PID file.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* gnu/tests/networking.scm (run-inetd-test): Use ‘wait-for-file’ instead
of ‘file-exists?’.

Change-Id: I3e596814485428fb81595d81c4e03519340c6576
---
 gnu/tests/networking.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/gnu/tests/networking.scm b/gnu/tests/networking.scm
index 52f818af48..b1ab43efb6 100644
--- a/gnu/tests/networking.scm
+++ b/gnu/tests/networking.scm
@@ -349,9 +349,8 @@ port 7, and a dict service on port 2628."
 
           ;; Make sure the PID file is created.
           (test-assert "PID file"
-            (marionette-eval
-             '(file-exists? "/var/run/inetd.pid")
-             marionette))
+            (wait-for-file "/var/run/inetd.pid" marionette
+                           #:timeout 30))
 
           ;; Test the echo service.
           (test-equal "echo response"