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

Rewrite another test to use a more generic generator

Browse source
This commit is contained in:
Sven van Heugten 2026-01-16 21:46:14 +01:00
parent cbc948c005
commit d278b5d8ea
2 changed files with 26 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -42,6 +42,16 @@ let getPartOfDayAfterInteractions interactions =
|> Seq.last
|> getPartOfDay
let doesLightHavePowerAfterInteractions light interactions =
interactions
|> Seq.choose (fun interaction ->
match interaction with
| HumanInteraction(LightPoweredOff l) when l = light -> Some false
| HumanInteraction(LightPoweredOn l) when l = light -> Some true
| _ -> None)
|> Seq.tryLast
|> Option.defaultValue false
let ensureStartsWithTimeChanged (genInteractions: Gen<Interaction list>) =
genInteractions
|> Gen.bind (fun interactions ->
@ -52,17 +62,7 @@ let ensureStartsWithTimeChanged (genInteractions: Gen<Interaction list>) =
let ensureLightHasPower (light: Light) (genInteractions: Gen<Interaction list>) =
genInteractions
|> Gen.map (fun interactions ->
let lightHasPower =
interactions
|> Seq.choose (fun interaction ->
match interaction with
| HumanInteraction(LightPoweredOff l) when l = light -> Some false
| HumanInteraction(LightPoweredOn l) when l = light -> Some true
| _ -> None)
|> Seq.tryLast
|> Option.defaultValue false
if lightHasPower then
if doesLightHavePowerAfterInteractions light interactions then
interactions
else
interactions @ [ HumanInteraction(LightPoweredOn light) ])