Update tests

test/ConnectionSpec.hs

@@ -15,7 +15,9 @@ import HomeAssistant.Runtime.Flags (loadFlags, setEnabled)
 import HomeAssistant.Runtime.Metrics (registerAppMetrics)
 import HomeAssistant.Runtime.RateLimit (registerRateLimitMetrics, slidingWindowLimiter)
 import HomeAssistant.Runtime.Connection (dispatchService, encodeService, isTriggerEvent)
-import Katip (Namespace (Namespace), Severity (InfoS), runKatipContextT)
+import Katip (Namespace (Namespace), runKatipContextT)
+import Katip.Monadic (runNoLoggingT)
+import Support (withTestLogEnv)
 import System.IO.Temp (withTempDirectory)
 import qualified System.Metrics as Metrics
 import System.Timeout (timeout)
@@ -60,9 +62,9 @@ spec = do
       rlMetrics <- registerRateLimitMetrics store
       limiter <- slidingWindowLimiter rlMetrics 10 20
       withTempDirectory "/tmp" "connection-spec" $ \dir -> do
-        flags <- loadFlags dir ["test"]
+        flags <- runNoLoggingT (loadFlags dir ["test"])
         setEnabled flags "test" False
-        withBus InfoS m flags $ \bus -> do
+        withTestLogEnv $ \le -> withBus le m flags $ \bus -> do
           timeout 1000000 (do
             runKatipContextT (busLogEnv bus) () (Namespace ["connection"]) $
               dispatchService limiter bus (req 1) (lightOn [EntityId "light.test"])