~ruther/guix-local: tests: inetd: Avoid race condition when looking for PID file.

31b39f2a336270048574ede1ed1619ff11f95a0a — Ludovic Courtès 2 years ago 0c695bb

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

patch browse .tar.gz .zip

1 files changed, 2 insertions(+), 3 deletions(-)

M gnu/tests/networking.scm

M gnu/tests/networking.scm => gnu/tests/networking.scm +2 -3

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