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.
This commit is contained in:
Mathieu Othacehe 2021-06-01 11:14:04 +02:00
parent 7ae2b1f2dc
commit 0b76b25a0e
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
1 changed files with 10 additions and 4 deletions

View File

@ -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)))))