diff options
author | Andy Wingo <wingo@pobox.com> | 2011-01-10 22:09:57 -0800 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-01-10 22:44:36 -0800 |
commit | 3475fbb5722fb53a413a89db231ed543cc27c05d (patch) | |
tree | 33e94b9a1c3efc9efaa764c5029d0cc2004a2789 /test-suite/tests/web-request.test | |
parent | ff8339db69811ef9c736379b9127e60a3ff74b05 (diff) | |
download | guile-3475fbb5722fb53a413a89db231ed543cc27c05d.tar.gz |
(web response) and (web request): bodies are bytevectors
* module/web/request.scm (read-request-body, write-request-body): Rename
from read-request-body/bytevector and
write-request-body/bytevector. Remove the /latin-1 variants, as they
were unused and a bad idea.
* module/web/response.scm (read-response-body, write-response-body):
Likewise.
* module/web/server/http.scm (http-read, http-write): Adapt to
request/response change.
* test-suite/tests/web-request.test:
* test-suite/tests/web-response.test: Update tests.
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) |