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

Verify that non-remotely controlled lights are on if they have power

Browse source
This commit is contained in:
Sven van Heugten 2026-01-08 21:45:46 +01:00
parent d57ca23822
commit d7fac9c3d0
3 changed files with 21 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

7
NightLight.Core.Tests/LightArbitraries.fs
View file

@ -6,6 +6,13 @@ open FsCheck.FSharp
type ArbitraryLight =
static member Light() = lights |> Gen.elements |> Arb.fromGen
type ArbitraryNonRemotelyControlledLight =
static member Light() =
lights
|> Seq.filter (not << _.ControlledWithRemote)
|> Gen.elements
|> Arb.fromGen
type ArbitraryRemotelyControlledLight =
static member Light() =
lights |> Seq.filter _.ControlledWithRemote |> Gen.elements |> Arb.fromGen