retry: reduce test time (less sleep)

ocsigen · Nov 4, 2024 · 61697da · 61697da
1 parent 13ddb6f
commit 61697da
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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