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)