From e31fc87691532f1b4ecb4410c4e7fdcda1012d6b Mon Sep 17 00:00:00 2001
From: Efim Poberezkin <8711996+efim-poberezkin@users.noreply.github.com>
Date: Wed, 16 Feb 2022 20:59:04 +0400
Subject: [PATCH] delays

---
 apps/simplex-stress-test/Main.hs | 2 ++
 src/Simplex/StressTest.hs        | 6 +++---
 stack.yaml                       | 6 +++---
 3 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/apps/simplex-stress-test/Main.hs b/apps/simplex-stress-test/Main.hs
index ebbafa8a5e..7d45262a64 100644
--- a/apps/simplex-stress-test/Main.hs
+++ b/apps/simplex-stress-test/Main.hs
@@ -6,4 +6,6 @@ import Test.Hspec
 
 main :: IO ()
 main = do
+  createDirectoryIfMissing False "tests/tmp"
   hspec $ describe "SimpleX chat client" chatTests
+  removeDirectoryRecursive "tests/tmp"
diff --git a/src/Simplex/StressTest.hs b/src/Simplex/StressTest.hs
index 5a02c8a4bc..e8c15eea17 100644
--- a/src/Simplex/StressTest.hs
+++ b/src/Simplex/StressTest.hs
@@ -35,8 +35,8 @@ danProfile = Profile {displayName = "dan", fullName = "Daniel"}
 chatTests :: Spec
 chatTests =
   describe "server stress test" $
-    -- fit "should stress server with many chats and messages" testStressServer
-    fit "server stress test" testStressServerConnectOnly
+    fit "should stress server with many chats and messages" testStressServer
+    -- fit "server stress test" testStressServerConnectOnly
 
 testStressServerConnectOnly :: IO ()
 testStressServerConnectOnly = do
@@ -138,7 +138,7 @@ testStressServer =
       when (k `mod` 100 == 0) $ do
         print $ show i <> " - +200"
         atomically $ modifyTVar sentTVar (+ 200)
-      -- threadDelay 500
+      threadDelay 500000
       loop i alice bob sentTVar $ k + 1
 
 startFileTransfer :: TestCC -> TestCC -> IO ()
diff --git a/stack.yaml b/stack.yaml
index e6a7d0b8b9..09a567a0bc 100644
--- a/stack.yaml
+++ b/stack.yaml
@@ -46,9 +46,9 @@ extra-deps:
   - text-short-0.1.5@sha256:962c6228555debdc46f758d0317dea16e5240d01419b42966674b08a5c3d8fa6,3498
   - time-compat-1.9.6.1@sha256:42d8f2e08e965e1718917d54ad69e1d06bd4b87d66c41dc7410f59313dba4ed1,5033
   # - simplexmq-1.0.0@sha256:34b2004728ae396e3ae449cd090ba7410781e2b3cefc59259915f4ca5daa9ea8,8561
-  - ../simplexmq
-  # - github: simplex-chat/simplexmq
-    # commit: 229e2607d76f3d6baf0d2623b186c084e3908b8f
+  # - ../simplexmq
+  - github: simplex-chat/simplexmq
+    commit: 229e2607d76f3d6baf0d2623b186c084e3908b8f
   # - terminal-0.2.0.0@sha256:de6770ecaae3197c66ac1f0db5a80cf5a5b1d3b64a66a05b50f442de5ad39570,2977
   - github: simplex-chat/aeson
     commit: 3eb66f9a68f103b5f1489382aad89f5712a64db7