summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Hartwig <mandyke@gmail.com>2011-11-23 20:56:30 +0100
committerAndy Wingo <wingo@pobox.com>2011-11-23 23:35:20 +0100
commit4855c63441c5f11a58b8157c877e5890a7b0ffe1 (patch)
tree8bb1c34952f4ea964fe185fb71500db4a8cde293
parent69b8c5df14dbc1f9602925788507d371a529dfbe (diff)
downloadguile-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.test5
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 ()