Stop hardcoding elements
This commit is contained in:
parent
5d8406d8ad
commit
c09915ac60
1 changed files with 4 additions and 6 deletions
|
|
@ -37,14 +37,12 @@ let private genHumanInteraction =
|
||||||
|
|
||||||
let private genRemoteInteraction =
|
let private genRemoteInteraction =
|
||||||
Gen.oneof
|
Gen.oneof
|
||||||
[ Gen.elements [ RemotePressedOnButton; RemotePressedOffButton ]
|
[ ArbMap.defaults
|
||||||
|
|> ArbMap.generate<BedroomControllingRemoteInteraction>
|
||||||
|> Gen.map BedroomControllingRemoteInteraction
|
|> Gen.map BedroomControllingRemoteInteraction
|
||||||
|
|
||||||
Gen.elements
|
ArbMap.defaults
|
||||||
[ RemotePressedLeftButton
|
|> ArbMap.generate<LivingRoomControllingRemoteAction>
|
||||||
RemotePressedRightButton
|
|
||||||
LivingRoomRemotePressedOnButton
|
|
||||||
LivingRoomRemotePressedOffButton ]
|
|
||||||
|> Gen.map LivingRoomControllingRemoteInteraction ]
|
|> Gen.map LivingRoomControllingRemoteInteraction ]
|
||||||
|
|
||||||
let private genInteraction =
|
let private genInteraction =
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue