From 0b76b25a0eff7a422f8ebcc8c095d7ede82c8863 Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Tue, 1 Jun 2021 11:14:04 +0200 Subject: 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(-) (limited to 'gnu/tests') diff --git a/gnu/tests/web.scm b/gnu/tests/web.scm index 61575f497d..518c9c1ff3 100644 --- a/gnu/tests/web.scm +++ b/gnu/tests/web.scm @@ -378,12 +378,14 @@ (define os (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 @@ (define marionette 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))))) -- cgit v1.2.3