From ae9372a9db20126e8092b8f763eca79d351c2050 Mon Sep 17 00:00:00 2001
From: "Evgeny @ SimpleX Chat"
 <259188159+evgeny-simplex@users.noreply.github.com>
Date: Mon, 5 Oct 2026 13:17:37 +0000
Subject: [PATCH] parallel channel tests

---
 tests/ChatTests/Groups.hs | 2 +-
 tests/ChatTests/Utils.hs  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/ChatTests/Groups.hs b/tests/ChatTests/Groups.hs
index 1f264c9932..2f5d6ffb7d 100644
--- a/tests/ChatTests/Groups.hs
+++ b/tests/ChatTests/Groups.hs
@@ -263,7 +263,7 @@ chatGroupTests = do
   -- TODO   - cancellation on failure to create relay group (for owner)
   -- TODO   - async retry connecting to relay (for members)
   -- TODO   - test relay privileges
-  sequential $ describe "channels" $ do
+  describe "channels" $ do
     describe "relay delivery" $ do
       describe "single relay" $ do
         it "should deliver messages to members" testChannels1RelayDeliver
diff --git a/tests/ChatTests/Utils.hs b/tests/ChatTests/Utils.hs
index 59e4bc37dc..fa022698d0 100644
--- a/tests/ChatTests/Utils.hs
+++ b/tests/ChatTests/Utils.hs
@@ -350,7 +350,7 @@ itemId i = show $ length chatFeatures + i
 
 (@@@) :: HasCallStack => TestCC -> [(String, String)] -> Expectation
 (@@@) cc res = do
-  threadDelay 500000
+  threadDelay 100000
   getChats mapChats cc res
 
 mapChats :: [(String, String, Maybe ConnStatus)] -> [(String, String)]