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

Get rid of NightLightStateMachine in the tests

Browse source
This commit is contained in:
Sven van Heugten 2026-01-04 10:23:36 +01:00
parent bd550bfcd9
commit 285874777a
3 changed files with 17 additions and 41 deletions
Download patch file Download diff file Expand all files Collapse all files

23
NightLight.Core.Tests/FakeHome.fs
View file

@ -3,6 +3,7 @@ namespace NightLight.Core.Tests
open System open System
open System.Text.RegularExpressions open System.Text.RegularExpressions
open NightLight.Core.Models open NightLight.Core.Models
open NightLight.Core.Core
open FsToolkit.ErrorHandling open FsToolkit.ErrorHandling
open FSharp.Data open FSharp.Data
@ -33,7 +34,12 @@ type FakeLight(light: Light) =
brightness <- newBrightness brightness <- newBrightness
type FakeHome(now: DateTime) = type FakeHome(now: DateTime) =
let nightLightStateMachine = NightLightStateMachine now let mutable nightLightStateMachine = State now
let assertIsOkAndGet result =
match result with
| Ok value -> value
| Error error -> failwith $"Expected Ok, got Error {error}"
let friendlyNameToFakeLight = let friendlyNameToFakeLight =
lights lights
@ -57,6 +63,13 @@ type FakeHome(now: DateTime) =
} }
|> ignore |> ignore
let sendEvent event =
let newState, commands =
event |> nightLightStateMachine.OnEventReceived |> assertIsOkAndGet
commands |> Seq.iter processCommand
nightLightStateMachine <- newState
member _.LightStates = friendlyNameToFakeLight.Values |> Seq.map _.LightWithState member _.LightStates = friendlyNameToFakeLight.Values |> Seq.map _.LightWithState
member _.Interact(interaction: Interaction) = member _.Interact(interaction: Interaction) =
@ -70,9 +83,7 @@ type FakeHome(now: DateTime) =
""type"": ""device_announce"", ""type"": ""device_announce"",
""data"": {{ ""friendly_name"": ""{light.FriendlyName}"" }} ""data"": {{ ""friendly_name"": ""{light.FriendlyName}"" }}
}}" } }}" }
|> nightLightStateMachine.SendMessage |> ReceivedZigbeeEvent
|> sendEvent
| HumanInteraction(LightTurnedOff light) -> friendlyNameToFakeLight[light.FriendlyName].TurnOff() | HumanInteraction(LightTurnedOff light) -> friendlyNameToFakeLight[light.FriendlyName].TurnOff()
| TimeChanged time -> nightLightStateMachine.ChangeTime time | TimeChanged time -> time |> Event.TimeChanged |> sendEvent
nightLightStateMachine.TransmittedCommands |> Seq.iter processCommand
nightLightStateMachine.ClearTransmittedCommands()

1
NightLight.Core.Tests/NightLight.Core.Tests.fsproj
View file

@ -7,7 +7,6 @@
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<Compile Include="NightLightStateMachine.fs" />
<Compile Include="FakeHome.fs" /> <Compile Include="FakeHome.fs" />
<Compile Include="Arbitraries.fs" /> <Compile Include="Arbitraries.fs" />
<Compile Include="NightLightTests.fs" /> <Compile Include="NightLightTests.fs" />

34
NightLight.Core.Tests/NightLightStateMachine.fs
View file

@ -1,34 +0,0 @@
namespace NightLight.Core.Tests
open System
open System.Collections.Generic
open FsToolkit.ErrorHandling
open NightLight.Core.Models
open NightLight.Core.Core
type NightLightStateMachine(now: DateTime) =
let mutable state = State now
let transmittedCommands = new List<Message>()
let assertIsOk (result: Result<unit, 'a>) : unit =
match result with
| Ok() -> ()
| Error error -> failwith $"Expected Ok, got Error {error}"
let sendEvent event =
result {
let! newState, commands = state.OnEventReceived event
state <- newState
transmittedCommands.AddRange commands
}
|> assertIsOk
member _.TransmittedCommands = transmittedCommands.AsReadOnly()
member _.SendMessage message =
ReceivedZigbeeEvent message |> sendEvent
member _.ChangeTime time = TimeChanged time |> sendEvent
member _.ClearTransmittedCommands() = transmittedCommands.Clear()