Make the Left and Right button behave the same way

This commit is contained in:
Sven van Heugten 2026-03-16 19:58:53 +01:00
parent 451d8b09f1
commit 5d8406d8ad
4 changed files with 8 additions and 11 deletions

View file

@ -110,6 +110,7 @@ type NightLightTests() =
|> Seq.fold
(fun state interaction ->
match interaction with
| RemotePressedLeftButton -> not state
| RemotePressedRightButton -> not state
| LivingRoomRemotePressedOnButton -> true
| LivingRoomRemotePressedOffButton -> false)
@ -127,8 +128,7 @@ type NightLightTests() =
| BothOff, RemotePressedOnButton -> BothOn
| BothOn, RemotePressedOnButton -> LeftOn
| LeftOn, RemotePressedOnButton -> RightOn
| RightOn, RemotePressedOnButton -> BothOn
| _, RemotePressedLeftButton -> LeftOn)
| RightOn, RemotePressedOnButton -> BothOn)
BothOn
let isExpectedOn light =