patrick/raft-fable
1
0
Fork 0
Code Issues Pull Requests Packages Releases Activity

Add action history to UI

Browse Source
This commit is contained in:
Smaug123
2022-11-06 14:24:19 +00:00
parent 36198d951d
commit fe0deaba36
9 changed files with 286 additions and 157 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Raft.Test/TestInMemoryServer.fs
View File

@@ -262,8 +262,6 @@ module TestInMemoryServer =
let clusterSize = 5
let cluster, network = InMemoryCluster.make<byte> clusterSize
let mutable replyChannel = None
let startupSequence =
[
NetworkAction.InactivityTimeout 1<ServerId>
@@ -289,7 +287,7 @@ module TestInMemoryServer =
NetworkAction.NetworkMessage (1<ServerId>, 7)
// Submit data to leader. This has the effect of heartbeating the other
// nodes, with a heartbeat that contains the new data.
NetworkAction.ClientRequest (1<ServerId>, byte 3, (fun s -> replyChannel <- Some s))
NetworkAction.ClientRequest (1<ServerId>, byte 3)
// Deliver the data messages.
NetworkAction.NetworkMessage (0<ServerId>, 2)
@@ -301,8 +299,6 @@ module TestInMemoryServer =
for action in startupSequence do
NetworkAction.perform cluster network action
replyChannel |> Option.get |> shouldEqual ClientReply.Acknowledged
// The servers have all accepted the data.
network.UndeliveredMessages 1<ServerId>
|> List.map (fun (_index, message) ->