IntenseFinance/simplex-chat
3
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

core: add to tests

Browse Source
This commit is contained in:
spaced4ndy 2023-12-24 20:44:30 +04:00
parent bb4293eb5e
commit e086719f27
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/ChatTests/Groups.hs
View File

@ -4378,6 +4378,16 @@ testGroupHistoryPreferenceOff =
r' <- chat <$> getTermLine dan r' <- chat <$> getTermLine dan
r' `shouldNotContain` [(0, "hello")] r' `shouldNotContain` [(0, "hello")]
r' `shouldNotContain` [(0, "hey!")] r' `shouldNotContain` [(0, "hey!")]
-- message delivery works
alice #> "#team 1"
[bob, cath, dan] *<# "#team alice> 1"
bob #> "#team 2"
[alice, cath, dan] *<# "#team bob> 2"
cath #> "#team 3"
[alice, bob, dan] *<# "#team cath> 3"
dan #> "#team 4"
[alice, bob, cath] *<# "#team dan> 4"
where where
aliceAddedDan :: HasCallStack => TestCC -> IO () aliceAddedDan :: HasCallStack => TestCC -> IO ()
aliceAddedDan cc = do aliceAddedDan cc = do