fix tests

This commit is contained in:
spaced4ndy
2025-07-17 21:04:01 +04:00
parent cf4f78cd94
commit 286d51ba0c
2 changed files with 5 additions and 4 deletions
+2 -2
View File
@@ -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
+3 -2
View File
@@ -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),