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.

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