summaryrefslogtreecommitdiff
path: root/test-suite/tests/web-request.test
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-01-10 22:09:57 -0800
committerAndy Wingo <wingo@pobox.com>2011-01-10 22:44:36 -0800
commit3475fbb5722fb53a413a89db231ed543cc27c05d (patch)
tree33e94b9a1c3efc9efaa764c5029d0cc2004a2789 /test-suite/tests/web-request.test
parentff8339db69811ef9c736379b9127e60a3ff74b05 (diff)
downloadguile-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.test7
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)