mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

web-http.test validates headers

Browse source 
* test-suite/tests/web-http.test (pass-if-parse): Validate header values
  as well.
This commit is contained in:
Daniel Hartwig 2011-11-23 20:56:30 +01:00 • committed by Andy Wingo
parent 69b8c5df14
commit 4855c63441
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test-suite/tests/web-http.test
View file

@ -41,8 +41,9 @@
(syntax-rules () (syntax-rules ()
((_ sym str val) ((_ sym str val)
(pass-if (format #f "~a: ~s -> ~s" 'sym str val) (pass-if (format #f "~a: ~s -> ~s" 'sym str val)
(equal? (parse-header 'sym str) (and (equal? (parse-header 'sym str)
val))))) val)
(valid-header? 'sym val))))))
(define-syntax pass-if-any-error (define-syntax pass-if-any-error
(syntax-rules () (syntax-rules ()