branch master updated: tests: hpcguix-web: Fix it.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 0b76b25  tests: hpcguix-web: Fix it.
0b76b25 is described below

commit 0b76b25a0eff7a422f8ebcc8c095d7ede82c8863
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Tue Jun 1 11:14:04 2021 +0200

    tests: hpcguix-web: Fix it.
    
    * gnu/tests/web.scm (run-hpcguix-web-server-test): Increase the VM memory 
size
    and add retries for the http-get test.
---
 gnu/tests/web.scm | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/gnu/tests/web.scm b/gnu/tests/web.scm
index 61575f4..518c9c1 100644
--- a/gnu/tests/web.scm
+++ b/gnu/tests/web.scm
@@ -378,12 +378,14 @@ HTTP-PORT, along with php-fpm."
   (define vm
     (virtual-machine
      (operating-system os)
-     (port-forwardings '((8080 . 5000)))))
+     (port-forwardings '((8080 . 5000)))
+     (memory-size 1024)))
 
   (define test
     (with-imported-modules '((gnu build marionette))
       #~(begin
           (use-modules (srfi srfi-11) (srfi srfi-64)
+                       (ice-9 match)
                        (gnu build marionette)
                        (web uri)
                        (web client)
@@ -412,9 +414,13 @@ HTTP-PORT, along with php-fpm."
             200
             (begin
               (wait-for-tcp-port 5000 marionette)
-              (let-values (((response text)
-                            (http-get "http://localhost:8080";)))
-                (response-code response))))
+              (#$retry-on-error
+               (lambda ()
+                 (let-values (((response text)
+                               (http-get "http://localhost:8080";)))
+                   (response-code response)))
+               #:times 10
+               #:delay 5)))
 
           (test-end)
           (exit (= (test-runner-fail-count (test-runner-current)) 0)))))