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

Put Arbitraries on the entire test class

Browse source
This commit is contained in:
Sven van Heugten 2026-01-04 10:31:13 +01:00
parent c7c5de9e21
commit 6baf725765
1 changed files with 12 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,14 +1,16 @@
module NightLight.Core.Tests.NightLightTests
namespace NightLight.Core.Tests
open FsCheck.Xunit
[<Property(Arbitrary = [| typeof<Arbitraries> |])>]
let ``Brightness should always be under 255`` (fakeHome: FakeHome) (interactions: Interaction list) =
interactions |> Seq.iter (fun interaction -> fakeHome.Interact interaction)
[<Properties(Arbitrary = [| typeof<Arbitraries> |])>]
type NightLightTests() =
[<Property>]
let ``Brightness should always be under 255`` (fakeHome: FakeHome) (interactions: Interaction list) =
interactions |> Seq.iter (fun interaction -> fakeHome.Interact interaction)
fakeHome.LightStates
|> Seq.choose (fun (_, state) ->
match state with
| On brightness -> Some brightness
| Off -> None)
|> Seq.forall (fun brightness -> brightness < 255uy)
fakeHome.LightStates
|> Seq.choose (fun (_, state) ->
match state with
| On brightness -> Some brightness
| Off -> None)
|> Seq.forall (fun brightness -> brightness < 255uy)