diff options
| author | Peter Bex <peter@more-magic.net> | 2024-09-13 19:50:03 +0200 |
|---|---|---|
| committer | Peter Bex <peter@more-magic.net> | 2024-09-13 19:50:03 +0200 |
| commit | 299eef8c087b48de8609f6b66d2d31d17dc0cc37 (patch) | |
| tree | 5fe115f5f2125c52f4512d5c3122c16889b6a4df /tests/run.scm | |
| parent | 36f623a790d1cc90534dfdd3a0a4ffc3f64977a3 (diff) | |
| download | http-client-2.0.tar.gz | |
Diffstat (limited to 'tests/run.scm')
| -rw-r--r-- | tests/run.scm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/tests/run.scm b/tests/run.scm index 7759b24..9ad7fd8 100644 --- a/tests/run.scm +++ b/tests/run.scm @@ -304,7 +304,10 @@ (test-group "alist form data body with custom port" (let* ((string-port (open-input-string "the file's contents")) - (custom-port (make-input-port (lambda () (read-char string-port)) (constantly #t) (lambda () (close-input-port string-port)))) + (custom-port (make-input-port (lambda () (read-char string-port)) + (constantly #t) + (lambda () (close-input-port string-port)) + read-bytevector: (lambda (p bytes buf off) (read-bytevector! buf string-port off bytes)))) (log (with-server-response (lambda () (with-input-from-request @@ -350,7 +353,10 @@ (test-group "alist form data body with custom port using HTTP/1.0" (let* ((string-port (open-input-string "the file's contents")) - (custom-port (make-input-port (lambda () (read-char string-port)) (constantly #t) (lambda () (close-input-port string-port)))) + (custom-port (make-input-port (lambda () (read-char string-port)) + (constantly #t) + (lambda () (close-input-port string-port)) + read-bytevector: (lambda (p bytes buf off) (read-bytevector! buf string-port off bytes)))) (uri (uri-reference "http://example.com")) (req (make-request uri: uri method: 'POST major: 1 minor: 0)) |