fix(tests) Increase timeout in 'simple Ping job works' test

This commit extends the timeout around the `readTChan` in the ping-pong
test to 60 seconds, mostly to account for CI slowness and to rule-out
potential source of flakyness.

The calls to `threadDelay` have been removed, as they doesn't seem to
affect the overall stability of the test (at least locally) -- the
point of the exercise is trying to expose as much as possible potential
problems which might be masked by active waits.

test/Test/API/Worker.hs

@@ -18,7 +18,6 @@ module Test.API.Worker (
     tests
   ) where
 
-import Control.Concurrent (threadDelay)
 import Control.Concurrent.Async (withAsync)
 import Control.Concurrent.STM.TChan
 import Control.Monad.STM (atomically)
@@ -54,16 +53,10 @@ tests = sequential $ aroundAll withTestDBAndPort $ do
               let dec = Aeson.decode d :: Maybe DT.Notification
               atomically $ writeTChan tchan dec
 
-      -- wait a bit to settle
-      threadDelay (100 * millisecond)
-
       withAsync wsConnect $ \_a -> do
-        -- wait a bit to connect
-        threadDelay (500 * millisecond)
-
         _ <- sendJobWithCfg cfg Ping
 
-        mTimeout <- Timeout.timeout (5 * 1_000_000) $ do
+        mTimeout <- Timeout.timeout (60 * 1_000_000) $ do
           md <- atomically $ readTChan tchan
 
           md `shouldBe` Just DT.NPing