From 5df0822b7cb91e765d0b2745a012081a67aa2df3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 6 Jan 2016 15:06:52 +0100 Subject: [PATCH] http: Test that responses lacking CR/LF are rejected. * test-suite/tests/web-http.test ("read-response-line")["missing CR/LF"]: New test. --- test-suite/tests/web-http.test | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/test-suite/tests/web-http.test b/test-suite/tests/web-http.test index 7f9431564..49984c85d 100644 --- a/test-suite/tests/web-http.test +++ b/test-suite/tests/web-http.test @@ -186,6 +186,11 @@ (1 . 1))) (with-test-prefix "read-response-line" + (pass-if-exception "missing CR/LF" + `(bad-header . "") + (call-with-input-string "HTTP/1.1 200 Almost okay" + (lambda (port) + (read-response-line port)))) (pass-if-read-response-line "HTTP/1.0 404 Not Found" (1 . 0) 404 "Not Found") (pass-if-read-response-line "HTTP/1.1 200 OK"