Test: add 5s per-request tcp-set-timeout in http-request helper
ober
b04ad4d3d0d7f04ef1f8e9a1318e84bd912e972d
--- a/tests/httpd-test.ss +++ b/tests/httpd-test.ss @@ -42,6 +42,7 @@ ;; args: optional body string (let* ([body (if (null? args) #f (car args))] [fd (tcp-connect "127.0.0.1" port)] + [_to (tcp-set-timeout fd 5 5)] [conn (conn-wrap fd)]) (dynamic-wind void