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

tests: improve tests (#3203)

Browse Source
This commit is contained in:
spaced4ndy 2023-10-12 11:52:14 +04:00 committed by GitHub
parent 4df8ea2e78
commit 7b488c7f1b
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/ChatTests/Groups.hs
View File

@ -2461,7 +2461,7 @@ testPlanGroupLinkLeaveRejoin =
concurrentlyN_ concurrentlyN_
[ alice [ alice
<### [ "bob_1 (Bob): contact is connected", <### [ "bob_1 (Bob): contact is connected",
"bob_1 invited to group #team via your group link", EndsWith "invited to group #team via your group link",
EndsWith "joined the group", EndsWith "joined the group",
"contact bob_1 is merged into bob", "contact bob_1 is merged into bob",
"use @bob <message> to send messages" "use @bob <message> to send messages"

2
tests/ChatTests/Profiles.hs
View File

@ -650,8 +650,10 @@ testPlanAddressConnecting tmp = do
alice ##> "/ad" alice ##> "/ad"
getContactLink alice True getContactLink alice True
withNewTestChat tmp "bob" bobProfile $ \bob -> do withNewTestChat tmp "bob" bobProfile $ \bob -> do
threadDelay 100000
bob ##> ("/c " <> cLink) bob ##> ("/c " <> cLink)
bob <## "connection request sent!" bob <## "connection request sent!"
threadDelay 100000
withTestChat tmp "alice" $ \alice -> do withTestChat tmp "alice" $ \alice -> do
alice <## "Your address is active! To show: /sa" alice <## "Your address is active! To show: /sa"
alice <## "bob (Bob) wants to connect to you!" alice <## "bob (Bob) wants to connect to you!"