From 5dab099b5c52b4e98ef50ba9ee094667759c5c36 Mon Sep 17 00:00:00 2001
From: JRoberts <8711996+jr-simplex@users.noreply.github.com>
Date: Mon, 19 Dec 2022 11:21:51 +0400
Subject: [PATCH] core: increase thread delays in timed messages tests

---
 tests/ChatTests.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/tests/ChatTests.hs b/tests/ChatTests.hs
index 2093acfb3c..0260b73531 100644
--- a/tests/ChatTests.hs
+++ b/tests/ChatTests.hs
@@ -3581,10 +3581,10 @@ testEnableTimedMessagesContact =
       alice <## "bob updated preferences for you:"
       alice <## "Disappearing messages: enabled (you allow: yes, contact allows: yes)"
       alice <##> bob
-      threadDelay 900000
+      threadDelay 500000
       alice #$> ("/_get chat @2 count=100", chat, chatFeatures <> [(0, "Disappearing messages: enabled"), (1, "hi"), (0, "hey")])
       bob #$> ("/_get chat @2 count=100", chat, chatFeatures <> [(1, "Disappearing messages: enabled"), (0, "hi"), (1, "hey")])
-      threadDelay 200000
+      threadDelay 1000000
       alice #$> ("/_get chat @2 count=100", chat, chatFeatures <> [(0, "Disappearing messages: enabled")])
       bob #$> ("/_get chat @2 count=100", chat, chatFeatures <> [(1, "Disappearing messages: enabled")])
 
@@ -3603,10 +3603,10 @@ testEnableTimedMessagesGroup =
       threadDelay 1000000
       alice #> "#team hi"
       bob <# "#team alice> hi"
-      threadDelay 900000
+      threadDelay 500000
       alice #$> ("/_get chat #1 count=100", chat, [(0, "connected"), (1, "Disappearing messages: on"), (1, "hi")])
       bob #$> ("/_get chat #1 count=100", chat, groupFeatures <> [(0, "connected"), (0, "Disappearing messages: on"), (0, "hi")])
-      threadDelay 200000
+      threadDelay 1000000
       alice #$> ("/_get chat #1 count=100", chat, [(0, "connected"), (1, "Disappearing messages: on")])
       bob #$> ("/_get chat #1 count=100", chat, groupFeatures <> [(0, "connected"), (0, "Disappearing messages: on")])