Demonstrate and fix some odd behaviour with some bulbs

2026-01-05 23:21:46 +01:00 · 2026-01-05 23:21:46 +01:00 · c1d9029a73
commit c1d9029a73
parent 10d858817d
2 changed files with 12 additions and 6 deletions
--- a/NightLight.Core.Tests/FakeHome.fs
+++ b/NightLight.Core.Tests/FakeHome.fs
@ -46,6 +46,9 @@ type FakeLight(light: Light) =
        if hasPower then
            brightness <- newBrightness

+            if light.Bulb = IkeaBulb then
+                state <- true
+
    member _.SetColor(newColor: Color) =
        if hasPower then
            color <- newColor