mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-07 07:26:13 -05: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:
parent
0c695bbf8d
commit
31b39f2a33
1 changed files with 2 additions and 3 deletions
|
@ -349,9 +349,8 @@ (define marionette
|
|||
|
||||
;; 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"
|
||||
|
|
Loading…
Reference in a new issue