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

update test

Browse Source
This commit is contained in:
Evgeny @ SimpleX Chat
2026-08-04 12:50:50 +00:00
parent 3f74a7cb32
commit c899a39cf3
1 changed files with 22 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/ChatTests/Groups.hs
+22 -1
View File
@@ -2327,7 +2327,7 @@ testGroupSharedBatchBodyMixedModes :: HasCallStack => TestParams -> IO ()
testGroupSharedBatchBodyMixedModes ps =
withNewTestChat ps "alice" aliceProfile $ \alice ->
withNewTestChat ps "bob" bobProfile $ \bob ->
withNewTestChat ps "cath" cathProfile $ \cath ->
withNewTestChat ps "cath" cathProfile $ \cath -> do
withNewTestChatCfg ps oldCfg "dan" danProfile $ \dan ->
withNewTestChatCfg ps oldCfg "eve" eveProfile $ \eve -> do
alice ##> "/g team"
@@ -2426,6 +2426,27 @@ testGroupSharedBatchBodyMixedModes ps =
eve ##> "/_get chat #1 count=100"
re <- chat <$> getTermLine eve
re `shouldContain` [(0, "updated profile")]
dan #> "#team hello from dan"
[alice, bob, cath, eve] *<# "#team dan> hello from dan"
withTestChat ps "dan" $ \dan ->
withTestChat ps "eve" $ \eve -> do
dan <## "subscribed 4 connections on server localhost"
eve <## "subscribed 4 connections on server localhost"
dan #> "#team d1"
[alice, bob, cath, eve] *<# "#team dan> d1"
dan #> "#team d2"
[alice, bob, cath, eve] *<# "#team dan> d2"
eve #> "#team e1"
[alice, bob, cath, dan] *<# "#team eve> e1"
eve #> "#team e2"
[alice, bob, cath, dan] *<# "#team eve> e2"
dan ##> "/p dan2"
dan <## "user profile is changed to dan2 (your 0 contacts are notified)"
dan #> "#team d3"
[alice, bob, cath, eve] *<# "#team dan2> d3"
eve ##> "/_get chat #1 count=100"
re2 <- chat <$> getTermLine eve
re2 `shouldContain` [(0, "updated profile (signed)")]
where
oldCfg = testCfg {chatVRange = mkVersionRange (VersionChat 9) (VersionChat 17)}