37 lines
954 B
Forth
37 lines
954 B
Forth
namespace Raft.Test
|
|
|
|
open Raft
|
|
open NUnit.Framework
|
|
open FsUnitTyped
|
|
|
|
[<TestFixture>]
|
|
module TestServer =
|
|
|
|
[<Test>]
|
|
let foo () =
|
|
let cluster = InMemoryCluster.make<int> 5
|
|
|
|
let logger, logs =
|
|
let logs = ResizeArray ()
|
|
let logLine (s : string) = lock logs (fun () -> logs.Add s)
|
|
|
|
let freezeLogs () =
|
|
lock logs (fun () -> logs |> Seq.toList)
|
|
|
|
logLine, freezeLogs
|
|
|
|
let sendMessage = cluster.Servers.[0].OutboundMessageChannel
|
|
|
|
// Candidate 1 asks to be elected.
|
|
|
|
{
|
|
CandidateTerm = 0<Term>
|
|
CandidateId = 1<ServerId>
|
|
ReplyChannel = fun message -> logger (sprintf "Received message for term %i" message.VoterTerm)
|
|
CandidateLastLogEntry = 0<LogIndex>, 0<Term>
|
|
}
|
|
|> Message.RequestVote
|
|
|> sendMessage 0<ServerId>
|
|
|
|
logs () |> shouldEqual [ "Received message for term 0" ]
|