Ticket #1838: redirect-string-port-test.patch

tests/run.scm

@@ -149 +149 @@
 
   (test-group "alist form data body with string port"
     (let* ((string-port (open-input-string "the file's contents"))
-           (log (with-server-response
+           (log (with-server-responses
                  (lambda ()
                    (with-input-from-request
                     "http://example.com"
@@ -158 +158 @@
                                 filename: "str")
                       ("more" . stuff))
                     read-string))
+                 (conc "HTTP/1.0 301 Moved Permanently\r\n"
+                        "Location: http://example.org/different/path\r\n"
+                        "Content-Length: 8\r\n\r\nIgnored!")
                  "HTTP/1.0 200 OK\r\n\r\n"))
            (req (log-request log))
            (h (request-headers req))