Re-use getPartOfDayAfterInteractions in an ensure... function

This commit is contained in:
Sven van Heugten 2026-01-16 21:19:54 +01:00
parent f22f31ee6c
commit cbc948c005
2 changed files with 4 additions and 11 deletions

View file

@ -85,10 +85,11 @@ type NightLightTests() =
(light: Light)
=
concatGens
[ genBiasedInteractions light |> ensurePartOfDayIs Night
[ genBiasedInteractions light
|> ensureStartsWithTimeChanged
|> ensurePartOfDayIs Night
genTimeChangedToPartOfDay Day |> Gen.map List.singleton
genBiasedInteractionsExcept light _.IsRemoteInteraction ]
|> ensureStartsWithTimeChanged
|> ensureLightHasPower light
|> Arb.fromGen
|> Prop.forAll