summaryrefslogtreecommitdiff
path: root/tests/run.scm
diff options
context:
space:
mode:
authorPeter Bex <peter@more-magic.net>2024-06-27 15:36:56 +0200
committerPeter Bex <peter@more-magic.net>2024-06-27 15:36:56 +0200
commitff0aa990d5064b70f2bfa50f0f6f3b007048d6ff (patch)
treef9066d3b1f0deb8b21503d8c1414bf562e929fc6 /tests/run.scm
parenta4c631332faaf7506f8cc9443c22deb7db2b4335 (diff)
downloadhttp-client-ff0aa990d5064b70f2bfa50f0f6f3b007048d6ff.tar.gz
Fix broken test for string ports
For some reason the hardcoded length was incorrect. It makes more sense to not hardcode it, as the exact value might differ depending on the boundary etc.
Diffstat (limited to 'tests/run.scm')
-rw-r--r--tests/run.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/run.scm b/tests/run.scm
index 347c18f..fbc3e6c 100644
--- a/tests/run.scm
+++ b/tests/run.scm
@@ -182,7 +182,7 @@
'multipart/form-data
(header-value 'content-type h))
(test "Content-length was set"
- 504 (header-value 'content-length h))
+ (string-length expected-data) (header-value 'content-length h))
(test "Version is the default HTTP version of 1.1"
'(1 . 1)
(cons (request-major req) (request-minor req)))
@@ -230,7 +230,7 @@
'multipart/form-data
(header-value 'content-type h))
(test "Content-length was set"
- 504 (header-value 'content-length h))
+ (string-length expected-data) (header-value 'content-length h))
(test "Version is correct"
'(1 . 0)
(cons (request-major req) (request-minor req)))