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

Improve generator names to show that they are biased

Browse source
This commit is contained in:
Sven van Heugten 2026-01-16 20:23:13 +01:00
parent 7af3827214
commit a9331853c0
2 changed files with 15 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -17,13 +17,13 @@ let private genRemoteInteraction =
let private genInteraction biasTowardsLight =
Gen.oneof [ genTimeChanged; genHumanInteraction biasTowardsLight; genRemoteInteraction ]
let genInteractionsExcept biasTowardsLight disqualifier =
let genBiasedInteractionsExcept biasTowardsLight disqualifier =
genInteraction biasTowardsLight
|> Gen.filter (not << disqualifier)
|> Gen.listOf
let genInteractions biasTowardsLight =
genInteractionsExcept biasTowardsLight (fun _ -> false)
let genBiasedInteractions biasTowardsLight =
genBiasedInteractionsExcept biasTowardsLight (fun _ -> false)
let ensureStartsWithTimeChanged (genInteractions: Gen<Interaction list>) =
genInteractions