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)))