02/03: tests: git-http: Avoid race condition.

[guix-commits]

civodul pushed a commit to branch version-1.2.0
in repository guix.

commit de6b649f8031cc2fa45099a3c41d78c2e302fdf2
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sat Nov 7 12:07:41 2020 +0100

    tests: git-http: Avoid race condition.
    
    * gnu/tests/version-control.scm (run-git-http-test)[test]("fcgiwrap
    listens"): New test.
---
 gnu/tests/version-control.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/gnu/tests/version-control.scm b/gnu/tests/version-control.scm
index 230aa9e..d3cf19c 100644
--- a/gnu/tests/version-control.scm
+++ b/gnu/tests/version-control.scm
@@ -1,6 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2017, 2018 Oleg Pykhalov <go.wigust@gmail.com>
-;;; Copyright © 2017, 2018 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2017, 2018, 2020 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2017, 2018 Clément Lassieur <clement@lassieur.org>
 ;;; Copyright © 2018 Christopher Baines <mail@cbaines.net>
 ;;;
@@ -285,6 +285,10 @@ HTTP-PORT."
              '(file-exists? "/srv/git/test")
              marionette))
 
+          (test-assert "fcgiwrap listens"
+            ;; Wait for fcgiwrap to be ready before cloning.
+            (wait-for-tcp-port 9000 marionette))
+
           ;; Make sure we can clone the repo from the host.
           (test-equal "clone"
             '#$README-contents