summaryrefslogtreecommitdiff
path: root/test-suite/tests/web-http.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/web-http.test')
-rw-r--r--test-suite/tests/web-http.test5
1 files changed, 5 insertions, 0 deletions
diff --git a/test-suite/tests/web-http.test b/test-suite/tests/web-http.test
index bd14de9b9..de2ccaa5b 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"