11 lines
322 B
FSharp
11 lines
322 B
FSharp
namespace NightLight.Core.Tests
|
|
|
|
open NightLight.Core.Models
|
|
open FsCheck.FSharp
|
|
|
|
type ArbitraryLight =
|
|
static member Light() = lights |> Gen.elements |> Arb.fromGen
|
|
|
|
type ArbitraryRemotelyControlledLight =
|
|
static member Light() =
|
|
lights |> Seq.filter _.ControlledWithRemote |> Gen.elements |> Arb.fromGen
|