Update tests

2026-08-21 13:29:16 +03:00
parent b5574e7436
commit a77b85b576
3 changed files with 8 additions and 5 deletions
@@ -34,7 +34,8 @@ spec = describe "Bus" $ do
        svc = Service "light" "turn_on" Nothing [EntityId "light.bedroom_masse"]
    runKatipContextT (busLogEnv bus) () (Namespace ["test"]) $
      channelHassEval bus (CallService req svc)
-    atomically (readTChan (busOutbound bus)) `shouldReturn` svc
+    (_, svc') <- atomically $ readTChan (busOutbound bus)
+    svc' `shouldBe` svc


  it "generates unique sequential call ids" $ do