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

Test alarm in existing test

Browse source
This commit is contained in:
Sven van Heugten 2026-01-18 07:13:26 +01:00
parent 3d84bb6435
commit 23d3a7b601
2 changed files with 43 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -41,21 +41,44 @@ type NightLightTests() =
|> Prop.label fakeHome.Label
|> Prop.trivial (fakeHome.LightsThatAreOn.Length = 0)
[<Property(Arbitrary = [| typeof<ArbitraryInteractions> |])>]
// TODO: Bias generator for alarm cases so that `MaxTest` can be reduced
[<Property(Arbitrary = [| typeof<ArbitraryInteractions> |], MaxTest = 10_000)>]
let ``All lights should either be off or have a brightness that fits its color`` (interactions: Interaction list) =
let fakeHome = createFakeHomeWithNightLightAndInteract interactions
let time = getTimeAfterInteractions interactions |> _.TimeOfDay
let alarm =
hasNewDayStartedSince interactions (tryGetLastRemoteInteraction interactions)
&& startOfDay <= time
&& time <= endOfAlarm
let scaledForAlarm light brightness =
if light.ControlledWithRemote <> NonRemote && alarm then
float brightness * ((time - startOfDay) / (endOfAlarm - startOfDay)) |> byte
else
brightness
fakeHome.LightStates
|> Seq.forall (function
| _, Off
| { Bulb = IkeaBulb }, On(254uy, White) -> true
| { Bulb = IkeaBulb }, On(210uy, Yellow) -> true
| { Bulb = IkeaBulb }, On(254uy, Red) -> true
| { Bulb = PaulmannBulb }, On(35uy, White) -> true
| { Bulb = PaulmannBulb }, On(35uy, Yellow) -> true
| { Bulb = PaulmannBulb }, On(80uy, Red) -> true
| _ -> false)
|> Seq.forall (fun (light, state) ->
let maybeExpectedBrightness =
match light, state with
| _, Off -> None
| { Bulb = IkeaBulb }, On(_, White) -> Some 254uy
| { Bulb = IkeaBulb }, On(_, Yellow) -> Some 210uy
| { Bulb = IkeaBulb }, On(_, Red) -> Some 254uy
| { Bulb = PaulmannBulb }, On(_, White) -> Some 35uy
| { Bulb = PaulmannBulb }, On(_, Yellow) -> Some 35uy
| { Bulb = PaulmannBulb }, On(_, Red) -> Some 80uy
|> Option.map (scaledForAlarm light)
let maybeActualBrightness =
match state with
| Off -> None
| On(brightness, _) -> Some brightness
maybeExpectedBrightness = maybeActualBrightness)
|> Prop.collect $"{fakeHome.LightsThatAreOn.Length} light(s) on"
|> Prop.classify alarm "alarm"
|> Prop.label fakeHome.Label
|> Prop.trivial (fakeHome.LightsThatAreOn.Length = 0)