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

4
NightLight.Core.Tests/InteractionListGenerators.fs
View file

@ -19,14 +19,14 @@ let private genHumanInteraction biasTowardsLight =
let private genInteraction biasTowardsLight =
Gen.oneof [ genTimeChanged; genHumanInteraction biasTowardsLight ]
let private genInteractionsListThatStartsWithTimeChanged biasTowardsLight =
let genInitialInteractions biasTowardsLight =
[ genTimeChanged |> Gen.map List.singleton
Gen.listOf <| genInteraction biasTowardsLight ]
|> concatGens
let genInitialInteractionsAndEndWith biasTowardsLight (endsWith: Interaction) =
let genNonTrivialList =
genInteractionsListThatStartsWithTimeChanged biasTowardsLight
genInitialInteractions biasTowardsLight
|> Gen.map (fun lst -> lst @ [ endsWith ])
match endsWith with