41 lines
1.7 KiB
Haskell
41 lines
1.7 KiB
Haskell
module RuntimeSpec (spec) where
|
|
|
|
import Test.Hspec
|
|
|
|
spec :: Spec
|
|
spec = pure ()
|
|
|
|
-- I'm commenting out the test as that specific controller
|
|
-- was just a dummy for seeing how the data flows (dead code)
|
|
-- But leaving it commented as it retains some code sample on how and what to test
|
|
--
|
|
-- spec :: Spec
|
|
-- spec = describe "runController" $ do
|
|
-- it "feeds inbound events through the machine and forwards service calls" $ withBus InfoS $ \bus -> do
|
|
-- _ <- async (runController bus (Controller "test" lightController True))
|
|
-- putStrLn "Before the delay"
|
|
-- threadDelay 100000 -- let the controller dup its inbound channel
|
|
-- putStrLn "After the delay"
|
|
-- atomically $ writeTChan (busInbound bus) (doorEvent "on") -- initial value: no change event
|
|
-- atomically $ writeTChan (busInbound bus) (doorEvent "off") -- door closes: lights on
|
|
-- atomically $ writeTChan (busInbound bus) (doorEvent "on") -- door opens: lights off
|
|
-- putStrLn "After the writes"
|
|
-- Right (_, svc1) <- boundedRead (busOutbound bus)
|
|
-- Right (_, svc2) <- boundedRead (busOutbound bus)
|
|
-- putStrLn "After the reads"
|
|
-- svc1 `shouldBe` light [EntityId "light.bedroom_masse"] True
|
|
-- svc2 `shouldBe` light [EntityId "light.bedroom_masse"] False
|
|
-- atomically (isEmptyTChan (busOutbound bus)) `shouldReturn` True
|
|
-- where
|
|
-- boundedRead channel = race (threadDelay 10000) (atomically (readTChan channel))
|
|
--
|
|
-- doorEvent :: Text -> Value
|
|
-- doorEvent state = object
|
|
-- [ "event" .= object
|
|
-- [ "data" .= object
|
|
-- [ "entity_id" .= ("binary_sensor.makuuhuone_ovi_contact" :: Text)
|
|
-- , "new_state" .= object ["state" .= state]
|
|
-- ]
|
|
-- ]
|
|
-- ]
|