dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-07-29 22:50:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

delays

Browse Source
This commit is contained in:
Efim Poberezkin
2022-02-16 20:59:04 +04:00
parent d0e3e7280b
commit e31fc87691
3 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/StressTest.hs
+3 -3
View File
@@ -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 ()