diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-01-26 14:07:09 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-01-26 14:07:09 +0100 |
| commit | e98c4f0b04a8c664945b36ae67c351bbfe9fb442 (patch) | |
| tree | dfcdd9f3ad8451fc8f9c9d63f82f1cf50812cfc4 /tests | |
| parent | 44f95d407c3dad0e86d31b8590b45a948242eca2 (diff) | |
| download | cuirass-e98c4f0b04a8c664945b36ae67c351bbfe9fb442.tar cuirass-e98c4f0b04a8c664945b36ae67c351bbfe9fb442.tar.gz | |
http: Run test within 'run-fibers'.
* tests/http.scm ("http")["cuirass-run"]: Run server with 'run-fibers'.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/http.scm | 6 |
1 files changed, 5 insertions, 1 deletions
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)) |