diff options
author | Daniel Hartwig <mandyke@gmail.com> | 2011-11-23 20:56:30 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-11-23 23:35:20 +0100 |
commit | 4855c63441c5f11a58b8157c877e5890a7b0ffe1 (patch) | |
tree | 8bb1c34952f4ea964fe185fb71500db4a8cde293 | |
parent | 69b8c5df14dbc1f9602925788507d371a529dfbe (diff) | |
download | guile-4855c63441c5f11a58b8157c877e5890a7b0ffe1.tar.gz |
web-http.test validates headers
* test-suite/tests/web-http.test (pass-if-parse): Validate header values
as well.
-rw-r--r-- | test-suite/tests/web-http.test | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/test-suite/tests/web-http.test b/test-suite/tests/web-http.test index e4d6efb8f..b6abbf370 100644 --- a/test-suite/tests/web-http.test +++ b/test-suite/tests/web-http.test @@ -41,8 +41,9 @@ (syntax-rules () ((_ sym str val) (pass-if (format #f "~a: ~s -> ~s" 'sym str val) - (equal? (parse-header 'sym str) - val))))) + (and (equal? (parse-header 'sym str) + val) + (valid-header? 'sym val)))))) (define-syntax pass-if-any-error (syntax-rules () |