diff options
Diffstat (limited to '')
-rw-r--r-- | tests/web-server.scm | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/tests/web-server.scm b/tests/web-server.scm deleted file mode 100644 index 73d34317..00000000 --- a/tests/web-server.scm +++ /dev/null @@ -1,43 +0,0 @@ -;;; Commentary: -;; Checks that HTTP server can start correctly, and that at least some -;; endpoints return correct information. -;;; Code: - -(((calp server routes) make-make-routes) - ((web server) run-server) - ((ice-9 threads) call-with-new-thread cancel-thread) - ((web client) http-get) - ((hnh util) let*) - ((web response) response-code response-location) - ((web uri) build-uri uri-path) - ((guile) AF_INET)) - -;; TODO find some free address. -(define port 8090) -(define host "127.8.9.5") - -(define server-thread - (call-with-new-thread - (lambda () - (run-server (make-make-routes) - 'http - `(family: ,AF_INET - host: ,host - port: ,port - )) - ;; This test should always fail, but should never be run - (test-assert "Server returned unexpectedly" #f) - ))) - -(let* ((response body (http-get (build-uri 'http host: host port: port)))) - (test-eqv "Basic connect" 200 (response-code response))) - -(let* ((response body (http-get (build-uri 'http host: host port: port - path: "/today" - query: "view=week&date=2020-01-04")))) - (test-eqv "Redirect" - 302 (response-code response)) - (test-equal "Fully specified redirect position" - "/week/2020-01-04.html" (uri-path (response-location response)))) - -(cancel-thread server-thread) |