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

Stop propagating parse errors throughout the tests

Browse source
This commit is contained in:
Sven van Heugten 2026-01-04 09:14:02 +01:00
parent 109ebde64a
commit a741938f89
3 changed files with 22 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2,15 +2,9 @@ module NightLight.Core.Tests.NightLightTests
open FsCheck.Xunit
let private assertIsOk (result: Result<unit, 'a>) : unit =
match result with
| Ok() -> ()
| Error error -> failwith $"Expected Ok, got Error {error}"
[<Property(Arbitrary = [| typeof<Arbitraries> |])>]
let ``Brightness should always be under 255`` (fakeHome: FakeHome) (interactions: Interaction list) =
interactions
|> Seq.iter (fun interaction -> fakeHome.Interact interaction |> assertIsOk)
interactions |> Seq.iter (fun interaction -> fakeHome.Interact interaction)
fakeHome.LightStates
|> Seq.choose (fun (_, state) ->