From b05eb0199f956d45a68b43a7be98c09e73349d95 Mon Sep 17 00:00:00 2001
From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com>
Date: Fri, 22 Mar 2024 14:24:59 +0400
Subject: [PATCH] fixing tests wip

---
 tests/Bots/DirectoryTests.hs | 4 ++--
 tests/ChatClient.hs          | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/tests/Bots/DirectoryTests.hs b/tests/Bots/DirectoryTests.hs
index 1054a1d8eb..60e8b7032d 100644
--- a/tests/Bots/DirectoryTests.hs
+++ b/tests/Bots/DirectoryTests.hs
@@ -38,7 +38,7 @@ directoryServiceTests = do
     it "should de-list if service is removed from the group" testDelistedServiceRemoved
     it "should de-list/re-list when service/owner roles change" testDelistedRoleChanges
     it "should NOT de-list if another member role changes" testNotDelistedMemberRoleChanged
-    it "should NOT send to approval if roles are incorrect" testNotSentApprovalBadRoles
+    fit "should NOT send to approval if roles are incorrect" testNotSentApprovalBadRoles
     it "should NOT allow approving if roles are incorrect" testNotApprovedBadRoles
   describe "should require re-approval if profile is changed by" $ do
     it "the registration owner" testRegOwnerChangedProfile
@@ -55,7 +55,7 @@ directoryServiceTests = do
   describe "list groups" $ do
     it "should list user's groups" testListUserGroups
   describe "store log" $ do
-    it "should restore directory service state" testRestoreDirectory
+    fit "should restore directory service state" testRestoreDirectory
 
 directoryProfile :: Profile
 directoryProfile = Profile {displayName = "SimpleX-Directory", fullName = "", image = Nothing, contactLink = Nothing, preferences = Nothing}
diff --git a/tests/ChatClient.hs b/tests/ChatClient.hs
index 8e9d11d91f..9df230a90f 100644
--- a/tests/ChatClient.hs
+++ b/tests/ChatClient.hs
@@ -346,8 +346,8 @@ getTermLine cc =
   5000000 `timeout` atomically (readTQueue $ termQ cc) >>= \case
     Just s -> do
       -- remove condition to always echo virtual terminal
-      -- when True $ do
-      when (printOutput cc) $ do
+      when True $ do
+      -- when (printOutput cc) $ do
         name <- userName cc
         putStrLn $ name <> ": " <> s
       pure s