svenvanheugten/night-light
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Demonstrate a bug

Browse source
This commit is contained in:
Sven van Heugten 2026-01-05 22:22:14 +01:00
parent e792a57cb4
commit 7472825140
4 changed files with 23 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
NightLight.Core.Tests/FakeHome.fs
View file

@ -139,3 +139,8 @@ type FakeHome with
| On(brightness, color) -> Some(light, brightness, color)
| Off -> None)
|> Seq.forall condition
member this.ForAllRemotelyControlledLights condition =
this.LightStates
|> Seq.filter (fst >> _.ControlledWithRemote)
|> Seq.forall condition