diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2021-06-01 11:14:04 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2021-06-01 14:33:27 +0200 |
| commit | 0b76b25a0eff7a422f8ebcc8c095d7ede82c8863 (patch) | |
| tree | c60712eaf424557e248973361a739f811680800f | |
| parent | 7ae2b1f2dcc35b1cb670cfa8c87b2d0a5779f5b9 (diff) | |
| download | guix-0b76b25a0eff7a422f8ebcc8c095d7ede82c8863.tar guix-0b76b25a0eff7a422f8ebcc8c095d7ede82c8863.tar.gz | |
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.
| -rw-r--r-- | gnu/tests/web.scm | 14 |
1 files changed, 10 insertions, 4 deletions
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 @@ 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))))) |