From cb2085b6848d25f71f90103abb919ea7914c606e Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Fri, 7 Feb 2025 16:09:42 +0000
Subject: Make more web server encoding tweaks

---
 tests/web-server.scm | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

(limited to 'tests')

diff --git a/tests/web-server.scm b/tests/web-server.scm
index 21d90f9..74f81ea 100644
--- a/tests/web-server.scm
+++ b/tests/web-server.scm
@@ -81,6 +81,34 @@
         "☺"
         body)))))
 
+(run-fibers-for-tests
+ (lambda ()
+   (let* ((web-server
+           (run-knots-web-server
+            (lambda (request)
+              (values '((content-type . (text/plain
+                                         (charset . "utf-8")))
+                        (content-length . 3))
+                      (lambda (port)
+                        (display "☺" port))))
+            #:port 0)) ;; Bind to any port
+          (port
+           (web-server-port web-server))
+          (uri
+           (build-uri 'http #:host "127.0.0.1" #:port port)))
+
+     (let ((response
+            body
+            (http-get
+             uri
+             ;; TODO Remove once using Guile 3.0.10
+             #:streaming? #t
+             #:port (non-blocking-open-socket-for-uri uri))))
+       (assert-equal
+        "☺"
+        (utf8->string
+         (get-bytevector-n body 3)))))))
+
 ;; Test hanlding of exceptions when writing the response to a client
 (run-fibers-for-tests
  (lambda ()
-- 
cgit v1.2.3