dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-08-29 09:49:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

cli: remove multiple members (#5656)

Browse Source 
* cli: remove multiple members

* accept all members joining via link as observers (do NOT release)

* blocked words

* blocked words

* XGrpLinkReject

* core: 6.3.0.6 (simplexmq 6.3.0.6)

---------

Co-authored-by: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com>
This commit is contained in:
Evgeny
2025-02-26 09:25:54 +00:00
committed by Evgeny Poberezkin
co-authored by spaced4ndy
parent 981901d587
commit 511ff1d35c
19 changed files with 267 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/ChatClient.hs
+5 -5
View File
@@ -390,15 +390,15 @@ withTmpFiles =
(removeDirectoryRecursive "tests/tmp")
testChatN :: HasCallStack => ChatConfig -> ChatOpts -> [Profile] -> (HasCallStack => [TestCC] -> IO ()) -> TestParams -> IO ()
testChatN cfg opts ps test params = do
tcs <- getTestCCs (zip ps [1 ..]) []
test tcs
concurrentlyN_ $ map (<// 100000) tcs
concurrentlyN_ $ map (stopTestChat params) tcs
testChatN cfg opts ps test params =
bracket (getTestCCs (zip ps [1 ..]) []) entTests test
where
getTestCCs :: [(Profile, Int)] -> [TestCC] -> IO [TestCC]
getTestCCs [] tcs = pure tcs
getTestCCs ((p, db) : envs') tcs = (:) <$> createTestChat params cfg opts (show db) p <*> getTestCCs envs' tcs
entTests tcs = do
concurrentlyN_ $ map (<// 100000) tcs
concurrentlyN_ $ map (stopTestChat params) tcs
(<//) :: HasCallStack => TestCC -> Int -> Expectation
(<//) cc t = timeout t (getTermLine cc) `shouldReturn` Nothing