Parse color commands in FakeHome

2026-01-04 10:42:47 +01:00 · 2026-01-04 10:42:47 +01:00 · 7125fee28e
commit 7125fee28e
parent 6baf725765
2 changed files with 26 additions and 3 deletions
--- a/NightLight.Core.Tests/NightLightTests.fs
+++ b/NightLight.Core.Tests/NightLightTests.fs
@ -11,6 +11,6 @@ type NightLightTests() =
        fakeHome.LightStates
        |> Seq.choose (fun (_, state) ->
            match state with
-            | On brightness -> Some brightness
+            | On(brightness, _) -> Some brightness
            | Off -> None)
        |> Seq.forall (fun brightness -> brightness < 255uy)