summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-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)))