diff --git a/tests/ChatClient.hs b/tests/ChatClient.hs index b14f62a2e5..12a63d2333 100644 --- a/tests/ChatClient.hs +++ b/tests/ChatClient.hs @@ -433,8 +433,8 @@ getTermLine cc@TestCC {printOutput} = 5000000 `timeout` atomically (readTQueue $ termQ cc) >>= \case Just s -> do -- remove condition to always echo virtual terminal - when True $ do - -- when printOutput $ do + -- when True $ do + when printOutput $ do name <- userName cc putStrLn $ name <> ": " <> s pure s diff --git a/tests/ChatTests/Utils.hs b/tests/ChatTests/Utils.hs index 5782c3381e..6d3c87aaec 100644 --- a/tests/ChatTests/Utils.hs +++ b/tests/ChatTests/Utils.hs @@ -300,7 +300,7 @@ groupFeatures :: [(Int, String)] groupFeatures = map (\(a, _, _) -> a) $ groupFeatures'' 0 groupFeaturesNoE2E :: [(Int, String)] -groupFeaturesNoE2E = map (\(a, _, _) -> a) $ groupFeatures_ 0 +groupFeaturesNoE2E = map (\(a, _, _) -> a) $ ((1, "chat banner"), Nothing, Nothing) : groupFeatures_ 0 sndGroupFeatures :: [(Int, String)] sndGroupFeatures = map (\(a, _, _) -> a) $ groupFeatures'' 1 @@ -330,7 +330,8 @@ businessGroupFeatures = map (\(a, _, _) -> a) $ businessGroupFeatures'' 0 businessGroupFeatures'' :: Int -> [((Int, String), Maybe (Int, String), Maybe String)] businessGroupFeatures'' dir = -- [ ((dir, e2eeInfoNoPQStr), Nothing, Nothing), - [ ((dir, "Disappearing messages: on"), Nothing, Nothing), + [ ((1, "chat banner"), Nothing, Nothing), + ((dir, "Disappearing messages: on"), Nothing, Nothing), ((dir, "Direct messages: off"), Nothing, Nothing), ((dir, "Full deletion: off"), Nothing, Nothing), ((dir, "Message reactions: on"), Nothing, Nothing),