Add second remote

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

View file

@ -40,7 +40,11 @@ let private genRemoteInteraction =
[ Gen.elements [ RemotePressedOnButton; RemotePressedOffButton; RemotePressedLeftButton ]
|> Gen.map BedroomControllingRemoteInteraction
Gen.constant (LivingRoomControllingRemoteInteraction RemotePressedRightButton) ]
Gen.elements
[ RemotePressedRightButton
LivingRoomRemotePressedOnButton
LivingRoomRemotePressedOffButton ]
|> Gen.map LivingRoomControllingRemoteInteraction ]
let private genInteraction =
Gen.frequency [ 4, genTimeChanged; 1, genHumanInteraction; 1, genRemoteInteraction ]