core: add delays to some failing tests (#3947)

tests/ChatTests/Direct.hs

@@ -2997,10 +2997,15 @@ testPQEnableContactCompression =
     bob ##> "/pq @alice on"
     bob <## "alice: enable quantum resistant end-to-end encryption"
     PQSupportOn <- bob `pqSupportForCt` 2
+    threadDelay 300000
     (alice, "lrg 1", v) \:#> (bob, v')
+    threadDelay 300000
     (bob, "lrg 2", v') \:#> (alice, v')
+    threadDelay 300000
     (alice, "lrg 3", v') \:#> (bob, v')
+    threadDelay 300000
     (bob, "lrg 4", v') \:#> (alice, v')
+    threadDelay 300000
     (alice, "lrg 5", v') +:#> (bob, v')
     PQEncOff <- alice `pqForContact` 2
     PQEncOff <- bob `pqForContact` 2

tests/ChatTests/Groups.hs

@@ -871,6 +871,9 @@ testGroupRemoveAdd =
   testChatCfg3 testCfgCreateGroupDirect aliceProfile bobProfile cathProfile $
     \alice bob cath -> do
       createGroup3 "team" alice bob cath
+
+      threadDelay 100000
+
       -- remove member
       alice ##> "/rm team bob"
       concurrentlyN_
@@ -880,6 +883,9 @@ testGroupRemoveAdd =
             bob <## "use /d #team to delete the group",
           cath <## "#team: alice removed bob from the group"
         ]
+
+      threadDelay 100000
+
       alice ##> "/a team bob"
       alice <## "invitation to join the group #team sent to bob"
       bob <## "#team_1: alice invites you to join the group as member"
@@ -1916,6 +1922,8 @@ testGroupLink =
         (alice <# "#team cath> hey team")
         (bob <# "#team cath> hey team")
 
+      threadDelay 100000
+
       -- leaving team removes link
       alice ##> "/l team"
       concurrentlyN_