[tests] comment out multiple workers test with timeout

It is not well thought-out

haskell-bee-tests/tests/Test/Integration/Worker.hs

@@ -523,25 +523,25 @@ multiWorkerTests brokerInitParams numWorkers =
       -- queue should be empty
       waitUntilQueueEmpty broker queueName 100
 
-    it "multiple workers and one long message should result in one message processed" $ \(TestEnvMulti { broker, queueName, events }) -> do
-      let msg = Timeout { delay = 2 }
-      let job' = (mkDefaultSendJob broker queueName msg 1) { toStrat = TSArchive }
-      msgId <- sendJob' job'
+    -- it "multiple workers and one long message should result in one message processed" $ \(TestEnvMulti { broker, queueName, events }) -> do
+    --   let msg = Timeout { delay = 2 }
+    --   let job' = (mkDefaultSendJob broker queueName msg 1) { toStrat = TSArchive }
+    --   msgId <- sendJob' job'
  
-      waitUntilTVarEq events [ EMessageReceived msg, EJobTimeout msg ] 1200
+    --   waitUntilTVarEq events [ EMessageReceived msg, EJobTimeout msg ] 1500
       
-      -- There might be a slight delay before the message is archived
-      -- (handling exception step in the thread)
-      waitUntil (isJust <$> BT.getArchivedMessage broker queueName msgId) 100
+    --   -- There might be a slight delay before the message is archived
+    --   -- (handling exception step in the thread)
+    --   waitUntil (isJust <$> BT.getArchivedMessage broker queueName msgId) 100
       
-      -- The archive should contain our message
-      mMsgArchive <- BT.getArchivedMessage broker queueName msgId
-      mMsgArchive `shouldSatisfy` isJust
-      let msgArchive = fromJust mMsgArchive
-      job (BT.toA $ BT.getMessage msgArchive) `shouldBe` msg
+    --   -- The archive should contain our message
+    --   mMsgArchive <- BT.getArchivedMessage broker queueName msgId
+    --   mMsgArchive `shouldSatisfy` isJust
+    --   let msgArchive = fromJust mMsgArchive
+    --   job (BT.toA $ BT.getMessage msgArchive) `shouldBe` msg
       
-      -- Queue should be empty, since we archive timed out jobs
-      waitUntilQueueEmpty broker queueName 100
+    --   -- Queue should be empty, since we archive timed out jobs
+    --   waitUntilQueueEmpty broker queueName 100
  
 
 second :: Int