diff options
author | Ludovic Courtès <ludo@gnu.org> | 2016-01-06 15:06:52 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2016-05-22 20:02:36 +0200 |
commit | 3829047ec78d8001bf559fd0fb8ceae100f77e8f (patch) | |
tree | c85235c92134f270e81c3d75e3927fb274253454 | |
parent | 95d146ff51741df1673ec650ff3774a99c72bbf3 (diff) | |
download | guile-3829047ec78d8001bf559fd0fb8ceae100f77e8f.tar.gz |
http: Test that responses lacking CR/LF are rejected.
* test-suite/tests/web-http.test ("read-response-line")["missing
CR/LF"]: New test.
-rw-r--r-- | test-suite/tests/web-http.test | 5 |
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" |