dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-04-25 14:12:27 +00:00
Code Issues Packages Projects Releases Wiki Activity

core: fix flaky testDisableCIExpirationOnlyForOneUser for cleanup manager timing

Browse Source
This commit is contained in:
shum
2026-02-19 07:39:50 +00:00
parent 004869de80
commit d7010d5271
1 changed files with 11 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
tests/ChatTests/Direct.hs
View File

@@ -2358,10 +2358,8 @@ testDisableCIExpirationOnlyForOneUser ps = do
alice #$> ("/_get chat @6 count=100", chat, chatFeatures <> [(1, "alisa 1"), (0, "alisa 2")])
threadDelay 2000000
-- second user messages are deleted
alice #$> ("/_get chat @6 count=100", chat, [(1,"chat banner")])
-- second user messages are deleted (cleanup manager interval = 500ms, ttl = 1s)
waitUntilExpired alice "@6" [(1, "chat banner")]
withTestChatCfg ps cfg "alice" $ \alice -> do
alice <## "subscribed 1 connections on server localhost"
@@ -2377,12 +2375,17 @@ testDisableCIExpirationOnlyForOneUser ps = do
alice #$> ("/_get chat @6 count=100", chat, [(1,"chat banner"), (1, "alisa 3"), (0, "alisa 4")])
threadDelay 2000000
-- second user messages are deleted
alice #$> ("/_get chat @6 count=100", chat, [(1,"chat banner")])
-- second user messages are deleted (cleanup manager interval = 500ms, ttl = 1s)
waitUntilExpired alice "@6" [(1, "chat banner")]
where
cfg = testCfg {initialCleanupManagerDelay = 0, cleanupManagerStepDelay = 0, ciExpirationInterval = 500000}
waitUntilExpired cc chatRef expected = do
let go 0 = cc #$> ("/_get chat " <> chatRef <> " count=100", chat, expected)
go n = do
cc ##> ("/_get chat " <> chatRef <> " count=100")
r <- chat <$> getTermLine cc
if r == expected then pure () else threadDelay 500000 >> go (n - 1)
go (10 :: Int)
testUsersTimedMessages :: HasCallStack => TestParams -> IO ()
testUsersTimedMessages ps' = do