From bc53c723abfff1ca8f90ba7e887ca7c829e3f9a2 Mon Sep 17 00:00:00 2001 From: "Evgeny @ SimpleX Chat" <259188159+evgeny-simplex@users.noreply.github.com> Date: Sat, 1 Aug 2026 21:50:16 +0000 Subject: [PATCH] simplify --- tests/ChatTests/Groups.hs | 8 ++++---- tests/ChatTests/Utils.hs | 9 --------- 2 files changed, 4 insertions(+), 13 deletions(-) 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