http: Run test within 'run-fibers'.

* tests/http.scm ("http")["cuirass-run"]: Run server with 'run-fibers'.
2018-01-26 14:07:09 +01:00 · 2018-01-26 14:07:09 +01:00 · e98c4f0b04
parent 44f95d407c
commit e98c4f0b04
1 changed files with 5 additions and 1 deletions
--- a/tests/http.scm
+++ b/tests/http.scm
@ -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))