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

Get rid of an intermediate variable

Browse source
This commit is contained in:
Sven van Heugten 2026-01-08 21:05:20 +01:00
parent 2c051c0b3d
commit 0ddcd17fd4
1 changed files with 3 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -103,14 +103,10 @@ type NightLightTests() =
let ``After a new day starts, all lights that have power should be on as long as the 'Off' button isn't pressed``
()
=
let genInitialInteractionsListThatEndsWithTransitionToDay =
concatGens
[ genInitialInteractionsAndEndWith =<< genTimeChangedToNight
genInteractionsExcept isTimeChangedToDay
genTimeChangedToDay |> Gen.map List.singleton ]
concatGens
[ genInitialInteractionsListThatEndsWithTransitionToDay
[ genInitialInteractionsAndEndWith =<< genTimeChangedToNight
genInteractionsExcept isTimeChangedToDay
genTimeChangedToDay |> Gen.map List.singleton
genInteractionsExcept ((=) (HumanInteraction RemotePressedOffButton)) ]
|> Arb.fromGen
|> Prop.forAll