From 60119eef629edf64264374d9a0f226d9ea326687 Mon Sep 17 00:00:00 2001
From: Efim Poberezkin <8711996+efim-poberezkin@users.noreply.github.com>
Date: Tue, 15 Feb 2022 16:02:03 +0400
Subject: [PATCH] comment statistics

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

diff --git a/tests/ChatTests.hs b/tests/ChatTests.hs
index 645527767..84fa15509 100644
--- a/tests/ChatTests.hs
+++ b/tests/ChatTests.hs
@@ -67,12 +67,12 @@ testStressServer =
   withTmpFiles $ do
     sentTVar <- newTVarIO (0 :: Int)
     concurrentlyN_ $
-      forever
-        ( do
-            threadDelay 5000000
-            sent <- readTVarIO sentTVar
-            print $ show sent
-        ) :
+      -- forever
+      --   ( do
+      --       threadDelay 5000000
+      --       sent <- readTVarIO sentTVar
+      --       print $ show sent
+      --   ) :
       map
         ( \i ->
             testChat2' (i * 2 -1, aliceProfile) (i * 2, bobProfile) $
@@ -86,8 +86,8 @@ testStressServer =
     loop alice bob sentTVar k = do
       alice `send` "@bob hi"
       bob `send` "@alice hi"
-      when (k `mod` 1000 == 0) $ atomically $ modifyTVar sentTVar (+ 2000)
-      threadDelay 5000
+      -- when (k `mod` 1000 == 0) $ atomically $ modifyTVar sentTVar (+ 2000)
+      threadDelay 500
       loop alice bob sentTVar $ k + 1
 
 testAddContact :: IO ()