diff options
author | Ludovic Courtès <ludo@gnu.org> | 2023-11-05 18:04:16 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2023-11-05 23:23:23 +0100 |
commit | 31b39f2a336270048574ede1ed1619ff11f95a0a (patch) | |
tree | 35a5a75733a87404a71becafdeab770b26a8c35a /gnu | |
parent | 0c695bbf8dbd5a5c1224f331a78b6316bc16e4d1 (diff) | |
download | guix-31b39f2a336270048574ede1ed1619ff11f95a0a.tar guix-31b39f2a336270048574ede1ed1619ff11f95a0a.tar.gz |
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
Diffstat (limited to 'gnu')
-rw-r--r-- | gnu/tests/networking.scm | 5 |
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" |