From 61697daa5a37e05cd7d1701c25e670b1647df803 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Proust?= Date: Mon, 4 Nov 2024 08:36:22 +0100 Subject: [PATCH] retry: reduce test time (less sleep) --- test/retry/main.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/retry/main.ml b/test/retry/main.ml index 69301957e..22a78998b 100644 --- a/test/retry/main.ml +++ b/test/retry/main.ml @@ -144,7 +144,7 @@ let suite = suite "lwt_retry" [ (* test that the sleeps actually throttle computations as desired *) test "with_sleep really does sleep" (fun () -> - let duration _ = 0.1 in + let duration _ = 0.01 in let operation () = Lwt.return_error (`Retry ()) in (* If [with_sleep] is removed the test fails, as expected *) let retries = Retry.(operation |> on_error |> with_sleep ~duration |> n_times 5) in