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

18
NightLight.Core.Tests/InteractionListHelpers.fs
View file

@ -6,23 +6,25 @@ type PartOfDay =
| Day
| Night
let private getPartOfDay (dateTime: DateTime) =
let startOfDay = TimeSpan.FromHours 6
let endOfAlarm = TimeSpan.FromHours 6.25
let endOfDay = TimeSpan.FromHours 20.5
let getPartOfDay (dateTime: DateTime) =
match dateTime with
| _ when
dateTime.TimeOfDay >= TimeSpan.FromHours 6
&& dateTime.TimeOfDay < TimeSpan.FromHours 20.5
->
Day
| _ when dateTime.TimeOfDay >= startOfDay && dateTime.TimeOfDay < endOfDay -> Day
| _ -> Night
let getPartOfDayAfterInteractions interactions =
let getTimeAfterInteractions interactions =
interactions
|> Seq.choose (fun interaction ->
match interaction with
| Interaction.TimeChanged time -> Some time
| _ -> None)
|> Seq.last
|> getPartOfDay
let getPartOfDayAfterInteractions interactions =
interactions |> getTimeAfterInteractions |> getPartOfDay
let doesLightHavePowerAfterInteractions light interactions =
interactions