aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2023-11-05 18:04:16 +0100
committerLudovic Courtès <ludo@gnu.org>2023-11-05 23:23:23 +0100
commit31b39f2a336270048574ede1ed1619ff11f95a0a (patch)
tree35a5a75733a87404a71becafdeab770b26a8c35a
parent0c695bbf8dbd5a5c1224f331a78b6316bc16e4d1 (diff)
downloadguix-31b39f2a336270048574ede1ed1619ff11f95a0a.tar.gz
guix-31b39f2a336270048574ede1ed1619ff11f95a0a.zip
tests: inetd: Avoid race condition when looking for PID file.
* gnu/tests/networking.scm (run-inetd-test): Use ‘wait-for-file’ instead of ‘file-exists?’. Change-Id: I3e596814485428fb81595d81c4e03519340c6576
-rw-r--r--gnu/tests/networking.scm5
1 files 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"