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

Add second remote

Browse source
This commit is contained in:
Sven van Heugten 2026-03-15 17:31:50 +01:00
parent 48c58b610c
commit 8cde891ba2
8 changed files with 51 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -98,11 +98,16 @@ type NightLightTests() =
let livingRoomLightsToggledOn =
interactions
|> Seq.filter (function
| Interaction.LivingRoomControllingRemoteInteraction RemotePressedRightButton -> true
| _ -> false)
|> Seq.length
|> fun rightPresses -> rightPresses % 2 = 0
|> Seq.choose (function
| Interaction.LivingRoomControllingRemoteInteraction interaction -> Some interaction
| _ -> None)
|> Seq.fold
(fun state interaction ->
match interaction with
| RemotePressedRightButton -> not state
| LivingRoomRemotePressedOnButton -> true
| LivingRoomRemotePressedOffButton -> false)
true
let isExpectedOn light =
match light with