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

code: modify test

Browse Source
This commit is contained in:
spaced4ndy 2023-12-24 20:55:03 +04:00
parent e086719f27
commit 5798efcf71
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tests/ChatTests/Groups.hs
View File

@ -2661,6 +2661,11 @@ testGroupLinkNoContact =
alice ##> "/g team" alice ##> "/g team"
alice <## "group #team is created" alice <## "group #team is created"
alice <## "to add members use /a team <name> or /create link #team" alice <## "to add members use /a team <name> or /create link #team"
alice ##> "/set history #team off"
alice <## "updated group preferences:"
alice <## "Recent history: off"
alice ##> "/create link #team" alice ##> "/create link #team"
gLink <- getGroupLink alice "team" GRMember True gLink <- getGroupLink alice "team" GRMember True
bob ##> ("/c " <> gLink) bob ##> ("/c " <> gLink)
@ -2692,13 +2697,10 @@ testGroupLinkNoContact =
[ do [ do
alice <## "cath (Catherine): accepting request to join group #team..." alice <## "cath (Catherine): accepting request to join group #team..."
alice <## "#team: cath joined the group", alice <## "#team: cath joined the group",
cath do
<### [ "#team: joining the group...", cath <## "#team: joining the group..."
"#team: you joined the group", cath <## "#team: you joined the group"
WithTime "#team alice> hello [>>]", cath <## "#team: member bob (Bob) is connected",
WithTime "#team bob> hi there [>>]",
"#team: member bob (Bob) is connected"
],
do do
bob <## "#team: alice added cath (Catherine) to the group (connecting...)" bob <## "#team: alice added cath (Catherine) to the group (connecting...)"
bob <## "#team: new member cath is connected" bob <## "#team: new member cath is connected"