diff options
author | Ludovic Courtès <ludo@gnu.org> | 2016-01-06 14:56:00 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2016-05-22 20:02:37 +0200 |
commit | f53145d41cbf6908959e230dc53cfccf38d92380 (patch) | |
tree | 3bcc9dc41debd3d8a4339da712679345731df210 /test-suite/tests/web-http.test | |
parent | 3829047ec78d8001bf559fd0fb8ceae100f77e8f (diff) | |
download | guile-f53145d41cbf6908959e230dc53cfccf38d92380.tar.gz |
http: Accept empty reason phrases.
Fixes <http://bugs.gnu.org/22273>.
Reported by Ricardo Wurmus <ricardo.wurmus@mdc-berlin.de>.
* module/web/http.scm (read-header-line): New procedure.
(read-response-line): Use it instead of 'read-line*'.
* test-suite/tests/web-http.test ("read-response-line"): Add test.
Diffstat (limited to 'test-suite/tests/web-http.test')
-rw-r--r-- | test-suite/tests/web-http.test | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/test-suite/tests/web-http.test b/test-suite/tests/web-http.test index de2ccaa5b..f88f011a6 100644 --- a/test-suite/tests/web-http.test +++ b/test-suite/tests/web-http.test @@ -194,7 +194,11 @@ (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" - (1 . 1) 200 "OK")) + (1 . 1) 200 "OK") + + ;; Empty reason phrases are valid; see <http://bugs.gnu.org/22273>. + (pass-if-read-response-line "HTTP/1.1 302 " + (1 . 1) 302 "")) (with-test-prefix "write-response-line" (pass-if-write-response-line "HTTP/1.0 404 Not Found" |