diff --git a/tests/ChatTests/Direct.hs b/tests/ChatTests/Direct.hs index 9319f6e711..b630039c62 100644 --- a/tests/ChatTests/Direct.hs +++ b/tests/ChatTests/Direct.hs @@ -283,7 +283,8 @@ testRetryConnecting ps = testChatCfgOpts2 cfg' opts' aliceProfile bobProfile tes { agentConfig = testAgentCfg { quotaExceededTimeout = 1, - messageRetryInterval = RetryInterval2 {riFast = fastRetryInterval, riSlow = fastRetryInterval} + messageRetryInterval = RetryInterval2 {riFast = fastRetryInterval, riSlow = fastRetryInterval}, + persistErrorInterval = 0 } } opts' = diff --git a/tests/ChatTests/Groups.hs b/tests/ChatTests/Groups.hs index cd82896c6c..e2bcc5e3e6 100644 --- a/tests/ChatTests/Groups.hs +++ b/tests/ChatTests/Groups.hs @@ -4167,6 +4167,7 @@ setupDesynchronizedRatchet ps alice = do bob <# "#team alice> 3" bob #> "#team 4" alice <# "#team bob> 4" + threadDelay 500000 withTestChat ps "bob_old" $ \bob -> do bob <## "subscribed 2 connections on server localhost" bob ##> "/sync #team alice"