Fix the ambience mode

test/LivingroomSpec.hs

@@ -0,0 +1,43 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module LivingroomSpec (spec) where
+
+import AFRP (Event (..))
+import Data.Time (UTCTime (..), fromGregorian)
+import HomeAssistant.Controller
+import HomeAssistant.Controller.Livingroom
+import Support
+import Test.Hspec
+
+-- | A UTCTime at a given hour on March 15, 2025 (Spring).
+springAt :: Int -> UTCTime
+springAt h = UTCTime (fromGregorian 2025 3 15) (fromIntegral (h * 3600))
+
+-- | A UTCTime at a given hour on July 15, 2025 (Summer).
+summerAt :: Int -> UTCTime
+summerAt h = UTCTime (fromGregorian 2025 7 15) (fromIntegral (h * 3600))
+
+spec :: Spec
+spec = describe "livingroomPlantLights" $ do
+  it "activates the Growth scene at 10:00 in Spring" $ do
+    let result = runHASSTimed livingroomPlantLights
+                  [ (springAt 9, Tick)
+                  , (springAt 10, Tick)
+                  ]
+    services result
+      `shouldBe` [ [], [activateScene "scene.olohuoneen_kasvivalo"] ]
+
+  it "activates the Ambience scene at 20:00 in Spring" $ do
+    let result = runHASSTimed livingroomPlantLights
+                  [ (springAt 19, Tick)
+                  , (springAt 20, Tick)
+                  ]
+    services result
+      `shouldBe` [ [], [activateScene "scene.kasvivalo_iltatila"] ]
+
+  it "does not activate Growth in Summer" $ do
+    let result = runHASSTimed livingroomPlantLights
+                  [ (summerAt 9, Tick)
+                  , (summerAt 10, Tick)
+                  ]
+    services result `shouldBe` [ [], [] ]