me
/
guix
Archived
1
0
Fork 0

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
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
1 changed files with 2 additions and 3 deletions

View File

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