14 lines
343 B
Forth
14 lines
343 B
Forth
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
|