[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/04: tests: web: Explicitly wait for the HTTP port.
From: |
guix-commits |
Subject: |
02/04: tests: web: Explicitly wait for the HTTP port. |
Date: |
Tue, 21 Apr 2020 10:33:30 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit aa7b3c6c0ecf7e27f0f6785908aa11e2268fa386
Author: Ludovic Courtès <address@hidden>
AuthorDate: Tue Apr 21 16:28:47 2020 +0200
tests: web: Explicitly wait for the HTTP port.
* gnu/tests/web.scm (run-webserver-test)["HTTP port ready"]: New test.
---
gnu/tests/web.scm | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/gnu/tests/web.scm b/gnu/tests/web.scm
index 7c1c0aa..1c984dd 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 <address@hidden>
+;;; Copyright © 2017, 2020 Ludovic Courtès <address@hidden>
;;; Copyright © 2017, 2019 Christopher Baines <address@hidden>
;;; Copyright © 2017, 2018 Clément Lassieur <address@hidden>
;;; Copyright © 2018 Pierre-Antoine Rouby <address@hidden>
@@ -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)