Get rid of arbitraries that are only used once
This commit is contained in:
parent
7472825140
commit
bb528e9942
5 changed files with 40 additions and 40 deletions
|
|
@ -44,6 +44,3 @@ let genInteractionListContaining containingInteraction afterFilter =
|
|||
Gen.frequency [ 1, genTrivialList; 9, genNonTrivialList ]
|
||||
| _ -> genNonTrivialList
|
||||
}
|
||||
|
||||
let genInteractionListThatEndsAtTime time =
|
||||
genInteractionListContaining (Interaction.TimeChanged time) (not << _.IsTimeChanged)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue