From 3065547ce4db39d254ddc3047d890db61da99fd6 Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Sat, 10 Jul 2021 12:14:25 +0700
Subject: [PATCH] tweak(tests): disable logging

---
 test/Spec.hs | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/test/Spec.hs b/test/Spec.hs
index 126cc8a..57a10a4 100644
--- a/test/Spec.hs
+++ b/test/Spec.hs
@@ -1,16 +1,21 @@
 
-import qualified TestTypes
 import qualified TestBrokerClient
 import qualified TestBrokerProtocol
 import qualified TestBrokerServer
 import qualified TestQuoteSourceClient
 import qualified TestQuoteSourceServer
+import qualified TestTypes
 import qualified TestZMQTradeSink
 
-import Test.Tasty
+import           Test.Tasty
+
+import           System.Log.Logger
 
 main :: IO ()
-main = defaultMain $ testGroup "Tests" [properties, unitTests]
+main = do
+  logger <- getRootLogger
+  updateGlobalLogger "" (setLevel EMERGENCY)
+  defaultMain $ testGroup "Tests" [properties, unitTests]
 
 properties :: TestTree
 properties = testGroup "Properties" [TestTypes.properties, TestBrokerProtocol.properties]