[no subject]

[Ludovic Courtès]

branch: master
commit e98c4f0b04a8c664945b36ae67c351bbfe9fb442
Author: Ludovic Courtès <address@hidden>
Date:   Fri Jan 26 14:07:09 2018 +0100

    http: Run test within 'run-fibers'.
    
    * tests/http.scm ("http")["cuirass-run"]: Run server with 'run-fibers'.
---
 tests/http.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/tests/http.scm b/tests/http.scm
index 7cefdaf..6dd48a3 100644
--- 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))