me/guix
Archived
1
0
Fork 0
Code Activity

tests: hpcguix-web: Fix it.

Browse source 
* 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

14
gnu/tests/web.scm
View file

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