summaryrefslogtreecommitdiff
path: root/test-suite/tests/web-http.test
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-01-06 14:56:00 +0100
committerAndy Wingo <wingo@pobox.com>2016-05-22 20:02:37 +0200
commitf53145d41cbf6908959e230dc53cfccf38d92380 (patch)
tree3bcc9dc41debd3d8a4339da712679345731df210 /test-suite/tests/web-http.test
parent3829047ec78d8001bf559fd0fb8ceae100f77e8f (diff)
downloadguile-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.test6
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"