jobqueue test: tweak delay for more stable CI results?

1d31cee4 · Alp Mestanogullari · 403e7324 · 1d31cee4
Commit 1d31cee4 authored Nov 09, 2022 by Alp Mestanogullari
Show whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

Main.hs tests/queue/Main.hs +1 -1

No files found.
--- a/tests/queue/Main.hs
+++ b/tests/queue/Main.hs
@@ -70,7 +70,7 @@ testPrios = do
             ]
  _jids <- forM jobs $ \(t, f) -> do
    pushJob t () f settings st
-  threadDelay initialDelay
+  threadDelay (2*initialDelay)
  r1 <- readTVarIO runningJs
  r1 `shouldBe` (Counts 0 2)
  threadDelay jobDuration