Initial commit

tests/web-server.scm

@@ -0,0 +1,30 @@
+(use-modules (tests)
+             (fibers)
+             (unit-test)
+             (web uri)
+             (web client)
+             (web response)
+             (knots web-server)
+             (knots non-blocking))
+
+(run-fibers-for-tests
+ (lambda ()
+   (let* ((web-server
+           (run-knots-web-server
+            (lambda (request)
+              (values '((content-type . (text/plain)))
+                      "Hello, World!"))
+            #:port 0)) ;; Bind to any port
+          (port
+           (web-server-port web-server))
+          (uri
+           (build-uri 'http #:host "127.0.0.1" #:port port)))
+
+     (assert-equal
+      200
+      (response-code
+       (http-get
+        uri
+        #:port (nonblocking-open-socket-for-uri uri)))))))
+
+(display "web-server test finished successfully\n")