Implement FakeHome

NightLight.Core.Tests/NightLightStateMachine.fs

@@ -0,0 +1,28 @@
+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 = { Time = now }
+
+    let transmittedCommands = new List<Message>()
+
+    let sendEvent event =
+        result {
+            let! newState, commands = onEventReceived state event
+            state <- newState
+            transmittedCommands.AddRange commands
+        }
+
+    member _.TransmittedCommands = transmittedCommands.AsReadOnly()
+
+    member _.SendMessage message =
+        ReceivedZigbeeEvent message |> sendEvent
+
+    member _.ChangeTime time = TimeChanged time |> sendEvent
+
+    member _.ClearTransmittedCommands() = transmittedCommands.Clear()