Skip to content

haskell-gargantext
haskell-gargantext
Verified Commit 530f34db authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

[test] seems that one needs to increase poll job timeout

parent 76a9e478
Pipeline #7028 passed with stages
          in 57 minutes and 32 seconds
          Hide whitespace changes
          Inline Side-by-side
          Showing with 1 addition and 1 deletion
          test/Test/Utils.hs
          View file @ 530f34db
          ...@@ -241,7 +241,7 @@ pollUntilWorkFinished :: HasCallStack ...@@ -241,7 +241,7 @@ pollUntilWorkFinished :: HasCallStack
          -> JobInfo -> JobInfo
          -> WaiSession () JobInfo -> WaiSession () JobInfo
          pollUntilWorkFinished tkn port ji = do pollUntilWorkFinished tkn port ji = do
          let waitSecs = 30 let waitSecs = 60
          isFinishedTVar <- liftIO $ newTVarIO False isFinishedTVar <- liftIO $ newTVarIO False
          let wsConnect = let wsConnect =
          withWSConnection ("127.0.0.1", port) $ \conn -> do withWSConnection ("127.0.0.1", port) $ \conn -> do
          ......
          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