Rename light command layer (Light, LightSettings, BrightnessSettings)

2026-09-29 23:14:07 +03:00
parent fefeae6301
commit 7ce994e814
6 changed files with 36 additions and 36 deletions
@@ -2,7 +2,7 @@
 module ControllerSpec where
 import Test.Hspec
 import Data.Default (def)
-import HomeAssistant.Controller (BrightnessSettings(..), formatLightSettings, LightSettings(..))
+import HomeAssistant.Controller (Brightness(..), formatLightAttributes, LightAttributes(..))
 import Data.Aeson (object, (.=))
 import HomeAssistant.Controller ()

@@ -11,19 +11,19 @@ spec :: Spec
 spec = describe "Generic controller" $
  describe "Light settings" $ do
    it "formats the default as empty" $
-      formatLightSettings def `shouldBe` Nothing
+      formatLightAttributes def `shouldBe` Nothing
    it "formats the transition" $
-      formatLightSettings def{lightSettingsTransition=Just 5} `shouldBe`
+      formatLightAttributes def{lightTransition=Just 5} `shouldBe`
        Just (object ["transition" .= (5 :: Int)])
    it "formats the temperature" $
-      formatLightSettings def{lightSettingsTemperature=Just 5} `shouldBe`
+      formatLightAttributes def{lightColorTemperature=Just 5} `shouldBe`
        Just (object ["color_temp_kelvin" .= (5 :: Int)])
    it "formats the  brightness as percentage" $
-      formatLightSettings def{lightSettingsBrightness=Just (BrightnessPercentage 100)} `shouldBe`
+      formatLightAttributes def{lightBrightness=Just (BrightnessPercent 100)} `shouldBe`
        Just (object ["brightness_pct" .= (100 :: Int)])
    it "formats the  brightness as absolute" $
-      formatLightSettings def{lightSettingsBrightness=Just (Brightness 200)} `shouldBe`
+      formatLightAttributes def{lightBrightness=Just (BrightnessAbsolute 200)} `shouldBe`
        Just (object ["brightness" .= (200 :: Int)])
    it "formats multiple values" $
-      formatLightSettings def{lightSettingsTransition = Just 5, lightSettingsBrightness=Just (Brightness 200)} `shouldBe`
+      formatLightAttributes def{lightTransition = Just 5, lightBrightness=Just (BrightnessAbsolute 200)} `shouldBe`
        Just (object ["brightness" .= (200 :: Int), "transition" .= (5 :: Int)])