Test that we elect a leader on startup

Raft.Test/Logger.fs

@@ -0,0 +1,13 @@
+namespace Raft.Test
+
+[<RequireQualifiedAccess>]
+module TestLogger =
+
+    let make () : (string -> unit) * (unit -> string list) =
+        let logs = ResizeArray ()
+        let logLine (s : string) = lock logs (fun () -> logs.Add s)
+
+        let freezeLogs () =
+            lock logs (fun () -> logs |> Seq.toList)
+
+        logLine, freezeLogs