diff options
Diffstat (limited to 'test-suite/tests/web-request.test')
-rw-r--r-- | test-suite/tests/web-request.test | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/test-suite/tests/web-request.test b/test-suite/tests/web-request.test index 32b99dd99..e1eec2f74 100644 --- a/test-suite/tests/web-request.test +++ b/test-suite/tests/web-request.test @@ -51,11 +51,8 @@ Accept-Language: en-gb, en;q=0.9\r (pass-if (equal? (request-uri r) (build-uri 'http #:path "/qux"))) - (pass-if (equal? (read-request-body/latin-1 r) #f)) - ;; Since it's #f, should be an idempotent read, so we can try - ;; bytevectors too - (pass-if (equal? (read-request-body/bytevector r) #f)) - + (pass-if (equal? (read-request-body r) #f)) + (pass-if "checking all headers" (equal? (request-headers r) |