Fix tests and add tests for kitchen lights

test/KitchenSpec.hs

@@ -11,6 +11,7 @@ import HomeAssistant.Controller.Kitchen
 import Support
 import Test.Hspec
 import Data.Default (def)
+import Data.Time (getCurrentTime, addUTCTime)
 
 -- Helper functions for creating test events
 testDinnerLightLevel :: Int -> Event Value
@@ -37,9 +38,15 @@ dinnerTableSpec = describe "dinnerTableController" $ do
     services (runHASS dinnerTableController [testDinnerLightLevel 10, testDinnerPresence "on"])
       `shouldBe` [[switchService [EntityId "switch.adaptive_lighting_ruokapoydan_valot_sleep_mode"] True], [switchService [EntityId "switch.adaptive_lighting_ruokapoydan_valot_sleep_mode"] False, light [EntityId "light.kitchen_dining_large"] (On def)]]
 
-  it "turns lights off when presence is unoccupied" $ do
-    services (runHASS dinnerTableController [testDinnerLightLevel 10, testDinnerPresence "off"])
+  it "turns lights to sleep when presence is unoccupied" $ do
+    now <- getCurrentTime
+    services (runHASSTimed dinnerTableController [(now, testDinnerLightLevel 10), (now, testDinnerPresence "off")])
       `shouldBe` [[switchService [EntityId "switch.adaptive_lighting_ruokapoydan_valot_sleep_mode"] True], []]
+  it "turns lights off when no presence for 300 seconds" $ do
+    now <- getCurrentTime
+    let later = 305 `addUTCTime` now
+    services (runHASSTimed dinnerTableController [(now, testDinnerLightLevel 10), (now, testDinnerPresence "off"), (later, Tick)])
+      `shouldBe` [[switchService [EntityId "switch.adaptive_lighting_ruokapoydan_valot_sleep_mode"] True], [], [switchService [EntityId "switch.adaptive_lighting_ruokapoydan_valot_sleep_mode"] False, light [EntityId "light.kitchen_dining_large"] Off]]
 
   it "does nothing on Tick" $ do
     services (runHASS dinnerTableController [Tick])