diff --git a/tests/ChatTests/Groups.hs b/tests/ChatTests/Groups.hs index 9dd87ea0a3..f90344f033 100644 --- a/tests/ChatTests/Groups.hs +++ b/tests/ChatTests/Groups.hs @@ -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" diff --git a/tests/ChatTests/Utils.hs b/tests/ChatTests/Utils.hs index 732c5efc47..dfcf76f761 100644 --- a/tests/ChatTests/Utils.hs +++ b/tests/ChatTests/Utils.hs @@ -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