summaryrefslogtreecommitdiff
path: root/gnu/tests/web.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-04-21 16:28:47 +0200
committerLudovic Courtès <ludo@gnu.org>2020-04-21 16:33:21 +0200
commitaa7b3c6c0ecf7e27f0f6785908aa11e2268fa386 (patch)
treef2d3becba0f34cb4d7ec517a1806f8814e82d296 /gnu/tests/web.scm
parenta295a1ca2942794ac52321a639128f94be595ac5 (diff)
tests: web: Explicitly wait for the HTTP port.
* gnu/tests/web.scm (run-webserver-test)["HTTP port ready"]: New test.
Diffstat (limited to 'gnu/tests/web.scm')
-rw-r--r--gnu/tests/web.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/gnu/tests/web.scm b/gnu/tests/web.scm
index 7c1c0aa511..1c984dd6f4 100644
--- a/gnu/tests/web.scm
+++ b/gnu/tests/web.scm
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2017 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2017, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017, 2019 Christopher Baines <mail@cbaines.net>
;;; Copyright © 2017, 2018 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2018 Pierre-Antoine Rouby <pierre-antoine.rouby@inria.fr>
@@ -110,6 +110,9 @@ HTTP-PORT."
((pid) (number? pid))))))
marionette))
+ (test-assert "HTTP port ready"
+ (wait-for-tcp-port #$forwarded-port marionette))
+
;; Retrieve the index.html file we put in /srv.
(test-equal "http-get"
'(200 #$%index.html-contents)