From 52803ae976f4e9a1281721460c70d8b066f1f097 Mon Sep 17 00:00:00 2001
From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com>
Date: Fri, 22 Mar 2024 22:01:11 +0400
Subject: [PATCH] core: add delays to some failing tests (#3947)

---
 tests/ChatTests/Direct.hs | 5 +++++
 tests/ChatTests/Groups.hs | 8 ++++++++
 2 files changed, 13 insertions(+)

diff --git a/tests/ChatTests/Direct.hs b/tests/ChatTests/Direct.hs
index 4e06f68fb6..4b0389ab90 100644
--- a/tests/ChatTests/Direct.hs
+++ b/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
diff --git a/tests/ChatTests/Groups.hs b/tests/ChatTests/Groups.hs
index bf9b445925..77bac11145 100644
--- a/tests/ChatTests/Groups.hs
+++ b/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_