diff options
author | Andy Wingo <wingo@pobox.com> | 2010-12-16 18:12:08 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-12-16 18:12:14 +0100 |
commit | adc91e41bf958fa68819c4cd1c7c242b44f9fe5d (patch) | |
tree | 939e8406b747ec67e9646ebab423aad0504b1fa9 /test-suite/tests | |
parent | 25731543d4b6c61484ce3e5aef2e341a62d6137c (diff) | |
download | guile-adc91e41bf958fa68819c4cd1c7c242b44f9fe5d.tar.gz |
http: lists of header names parse better
* module/web/http.scm (list-of-strings?, write-list-of-strings): Move
definitions up.
(split-header-names, list-of-header-names?, write-header-list): New
helpers.
(declare-header-list-header): New helper.
(cache-control): Use split-header-names for private and no-cache.
(trailer): Use declare-header-list-header to parse known headers to
symbols.
(vary): Likewise, use split-header-names et al.
* test-suite/tests/web-http.test ("general headers"): Add a test.
Diffstat (limited to 'test-suite/tests')
-rw-r--r-- | test-suite/tests/web-http.test | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/test-suite/tests/web-http.test b/test-suite/tests/web-http.test index 9aed7766f..068523e3a 100644 --- a/test-suite/tests/web-http.test +++ b/test-suite/tests/web-http.test @@ -97,6 +97,7 @@ (pass-if-parse pragma "no-cache, foo" '(no-cache "foo")) (pass-if-parse trailer "foo, bar" '("foo" "bar")) + (pass-if-parse trailer "connection, bar" '(connection "bar")) (pass-if-parse transfer-encoding "foo, chunked" '(("foo") (chunked))) |