mirror of
git://git.savannah.gnu.org/guix/guix-cuirass.git
synced 2023-12-14 06:03:04 +01:00
http: Run test within 'run-fibers'.
* tests/http.scm ("http")["cuirass-run"]: Run server with 'run-fibers'.
This commit is contained in:
parent
44f95d407c
commit
e98c4f0b04
|
@ -22,6 +22,7 @@
|
|||
(cuirass database)
|
||||
(cuirass utils)
|
||||
(json)
|
||||
(fibers)
|
||||
(web uri)
|
||||
(web client)
|
||||
(web response)
|
||||
|
@ -124,7 +125,10 @@
|
|||
(test-assert "cuirass-run"
|
||||
(call-with-new-thread
|
||||
(lambda ()
|
||||
(run-cuirass-server (%db) #:port 6688))))
|
||||
(run-fibers
|
||||
(lambda ()
|
||||
(run-cuirass-server (%db) #:port 6688))
|
||||
#:drain? #t))))
|
||||
|
||||
(test-assert "wait-server"
|
||||
(wait-until-ready 6688))
|
||||
|
|
Loading…
Reference in a new issue