Merge remote-tracking branch 'origin/jobqueue-test-delay' into dev

b19bcd6a · Alexandre Delanoë · 695bb505 · 1d31cee4 · b19bcd6a
Commit b19bcd6a authored Nov 30, 2022 by Alexandre Delanoë
Hide 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