mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-31 14:56:54 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

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
Show stats Download patch file Download diff file Expand all files Collapse all files

14
gnu/tests/web.scm
View file

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