diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/database.scm | 4 | ||||
-rw-r--r-- | tests/http.scm | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/tests/database.scm b/tests/database.scm index 271f166..6098465 100644 --- a/tests/database.scm +++ b/tests/database.scm @@ -87,7 +87,9 @@ (test-assert "db-init" (begin (%db (db-init database-name)) - (%db-channel (make-worker-thread-channel (%db))) + (%db-channel (make-worker-thread-channel + (lambda () + (list (%db))))) #t)) (test-assert "sqlite-exec" diff --git a/tests/http.scm b/tests/http.scm index 337a775..d20a3c3 100644 --- a/tests/http.scm +++ b/tests/http.scm @@ -108,7 +108,9 @@ (test-assert "db-init" (begin (%db (db-init database-name)) - (%db-channel (make-worker-thread-channel (%db))) + (%db-channel (make-worker-thread-channel + (lambda () + (list (%db))))) #t)) (test-assert "cuirass-run" |