3
5
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00

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
This commit is contained in:
Ludovic Courtès 2023-11-05 18:04:16 +01:00
parent 0c695bbf8d
commit 31b39f2a33
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -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"