From e98c4f0b04a8c664945b36ae67c351bbfe9fb442 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 26 Jan 2018 14:07:09 +0100
Subject: 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(-)

(limited to 'tests')

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))
-- 
cgit v1.2.3