This commit is contained in:
Evgeny @ SimpleX Chat
2026-08-01 21:50:16 +00:00
parent 7f4a424d1b
commit bc53c723ab
2 changed files with 4 additions and 13 deletions
+4 -4
View File
@@ -430,8 +430,8 @@ testGroupShared alice bob cath checkMessages = do
alice ##> "/mr team bob observer"
concurrentlyN_
[ alice <## "#team: you changed the role of bob to observer (signed)",
bob <## ("#team: alice changed your role from admin to observer" <> signedSuffix bob),
cath <## ("#team: alice changed the role of bob from admin to observer" <> signedSuffix cath)
bob <## "#team: alice changed your role from admin to observer (signed)",
cath <## "#team: alice changed the role of bob from admin to observer (signed)"
]
bob ##> "#team hello"
bob <## "#team: you don't have permission to send messages"
@@ -440,8 +440,8 @@ testGroupShared alice bob cath checkMessages = do
alice ##> "/mr team bob admin"
concurrentlyN_
[ alice <## "#team: you changed the role of bob to admin (signed)",
bob <## ("#team: alice changed your role from observer to admin" <> signedSuffix bob),
cath <## ("#team: alice changed the role of bob from observer to admin" <> signedSuffix cath)
bob <## "#team: alice changed your role from observer to admin (signed)",
cath <## "#team: alice changed the role of bob from observer to admin (signed)"
]
-- delete contact
alice ##> "/d bob"
-9
View File
@@ -153,15 +153,6 @@ runTestCfg3 aliceCfg bobCfg cathCfg runTest ps =
withNewTestChatCfg ps cathCfg "cath" cathProfile $ \cath ->
runTest alice bob cath
signedSuffix :: TestCC -> String
signedSuffix cc
| v >= relayWebCapVersion = " (signed)"
| otherwise = ""
where
ChatController {config} = chatController cc
ChatConfig {chatVRange} = config
v = maxVersion chatVRange
withRelay :: HasCallStack => TestParams -> (TestCC -> IO ()) -> IO ()
withRelay ps = withNewTestChatOpts ps relayTestOpts "relay" chatRelayProfile