From a599ef9e9bbfc60ed98534dfb0bc0872ac784e0e Mon Sep 17 00:00:00 2001
From: Efim Poberezkin <8711996+efim-poberezkin@users.noreply.github.com>
Date: Tue, 15 Feb 2022 20:16:20 +0400
Subject: [PATCH] log connected

---
 src/Simplex/StressTest.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/Simplex/StressTest.hs b/src/Simplex/StressTest.hs
index 415199b16a..7824fb72cb 100644
--- a/src/Simplex/StressTest.hs
+++ b/src/Simplex/StressTest.hs
@@ -39,17 +39,21 @@ testStressServer :: IO ()
 testStressServer =
   withTmpFiles $ do
     sentTVar <- newTVarIO (0 :: Int)
+    connectedTVar <- newTVarIO (0 :: Int)
     concurrentlyN_ $
       forever
         ( do
             threadDelay 5000000
             sent <- readTVarIO sentTVar
-            print $ show sent
+            connected <- readTVarIO connectedTVar
+            print $ "connected: " <> show connected <> " -- sent: " <> show sent
         ) :
       map
         ( \i ->
             testChat2' (i * 2 -1, aliceProfile) (i * 2, bobProfile) $
               \alice bob -> do
+                print $ show i <> " - connected +2"
+                atomically $ modifyTVar connectedTVar (+ 2)
                 connectUsers alice bob
                 loop i alice bob sentTVar 1
         )