From ff0aa990d5064b70f2bfa50f0f6f3b007048d6ff Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Thu, 27 Jun 2024 15:36:56 +0200 Subject: 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. --- tests/run.scm | 4 ++-- 1 file 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))) -- cgit v1.2.3