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

Add some synctatic sugar

Browse source
This commit is contained in:
Sven van Heugten 2026-01-08 20:58:24 +01:00
parent 0033fed73e
commit 2c051c0b3d
2 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
NightLight.Core.Tests/NightLightTests.fs
View file

@ -40,7 +40,7 @@ type NightLightTests() =
[<Property>]
let ``All lights that are on should be white or yellow during the day`` () =
concatGens
[ Gen.bind genInitialInteractionsAndEndWith genTimeChangedToDay
[ genInitialInteractionsAndEndWith =<< genTimeChangedToDay
genInteractionsExcept isTimeChangedToNight ]
|> Arb.fromGen
|> Prop.forAll
@ -53,7 +53,7 @@ type NightLightTests() =
[<Property>]
let ``All lights that are on should be red during the night`` () =
concatGens
[ Gen.bind genInitialInteractionsAndEndWith genTimeChangedToNight
[ genInitialInteractionsAndEndWith =<< genTimeChangedToNight
genInteractionsExcept isTimeChangedToDay ]
|> Arb.fromGen
|> Prop.forAll
@ -105,9 +105,9 @@ type NightLightTests() =
=
let genInitialInteractionsListThatEndsWithTransitionToDay =
concatGens
[ Gen.bind genInitialInteractionsAndEndWith genTimeChangedToNight
[ genInitialInteractionsAndEndWith =<< genTimeChangedToNight
genInteractionsExcept isTimeChangedToDay
Gen.map List.singleton genTimeChangedToDay ]
genTimeChangedToDay |> Gen.map List.singleton ]
concatGens
[ genInitialInteractionsListThatEndsWithTransitionToDay