11 lines
298 B
FSharp
11 lines
298 B
FSharp
module NightLight.Core.Tests.GenHelpers
|
|
|
|
open FsCheck
|
|
open FsCheck.FSharp
|
|
|
|
let concatGens (gens: Gen<'a list> list) : Gen<'a list> =
|
|
match gens with
|
|
| [] -> Gen.constant []
|
|
| first :: rest -> rest |> List.fold (fun accGen g -> Gen.map2 (@) accGen g) first
|
|
|
|
let (=<<) m f = Gen.bind m f
|