delays

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"

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 ()

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