Skip to content

haskell-gargantext
haskell-gargantext
Commit 1d31cee4 authored by Alp Mestanogullari's avatar Alp Mestanogullari
Browse files
Options

jobqueue test: tweak delay for more stable CI results?

parent 403e7324
Pipeline #3366 passed with stage
    in 92 minutes and 47 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 1 addition and 1 deletion
    tests/queue/Main.hs
    View file @ 1d31cee4
    ...@@ -70,7 +70,7 @@ testPrios = do ...@@ -70,7 +70,7 @@ testPrios = do
    ] ]
    _jids <- forM jobs $ \(t, f) -> do _jids <- forM jobs $ \(t, f) -> do
    pushJob t () f settings st pushJob t () f settings st
    threadDelay initialDelay threadDelay (2*initialDelay)
    r1 <- readTVarIO runningJs r1 <- readTVarIO runningJs
    r1 `shouldBe` (Counts 0 2) r1 `shouldBe` (Counts 0 2)
    threadDelay jobDuration threadDelay jobDuration
    ......
    Markdown is supported
    0% or
    You are about to add 0 people to the discussion. Proceed with caution.
    Finish editing this message first!
    Please register or to comment