Safe Haskell	Safe-Inferred
Language	Haskell2010

Test.Consensus.PeerSimulator.Resources

Description

Data types and resource allocating constructors for the concurrency primitives used by ChainSync and BlockFetch in the handlers that implement the block tree analysis specific to our peer simulator.

Synopsis

data BlockFetchResources m blk = BlockFetchResources {
- bfrServer ∷ BlockFetchServer blk (Point blk) m ()
- bfrTickStarted ∷ STM m ()
}
data ChainSyncResources m blk = ChainSyncResources {
- csrCurrentIntersection ∷ StrictTVar m (Point blk)
- csrServer ∷ ChainSyncServer (Header blk) (Point blk) (Tip blk) m ()
- csrTickStarted ∷ STM m ()
}
data PeerResources m blk = PeerResources {
- prShared ∷ SharedResources m blk
- prChainSync ∷ ChainSyncResources m blk
- prBlockFetch ∷ BlockFetchResources m blk
- prUpdateState ∷ NodeState blk → STM m ()
}
data PeerSimulatorResources m blk = PeerSimulatorResources {
- psrPeers ∷ Map PeerId (PeerResources m blk)
- psrHandles ∷ StrictTVar m (Map PeerId (ChainSyncClientHandle m TestBlock))
}
data SharedResources m blk = SharedResources {
- srPeerId ∷ PeerId
- srBlockTree ∷ BlockTree blk
- srCurrentState ∷ StrictTVar m (Maybe (NodeState blk))
- srTracer ∷ Tracer m (TraceEvent blk)
}
makeChainSyncResources ∷ IOLike m ⇒ STM m () → SharedResources m TestBlock → m (ChainSyncResources m TestBlock)
makePeerResources ∷ IOLike m ⇒ Tracer m (TraceEvent TestBlock) → BlockTree TestBlock → PeerId → m (PeerResources m TestBlock)
makePeerSimulatorResources ∷ IOLike m ⇒ Tracer m (TraceEvent TestBlock) → BlockTree TestBlock → NonEmpty PeerId → m (PeerSimulatorResources m TestBlock)

Documentation

data BlockFetchResources m blk Source #

The data used by the point scheduler to interact with the mocked protocol handler in Test.Consensus.PeerSimulator.BlockFetch.

Constructors

BlockFetchResources
Fields bfrServer ∷ BlockFetchServer blk (Point blk) m () The final server passed to typed-protocols. bfrTickStarted ∷ STM m () This action blocks while this peer is inactive in the point schedule.

data ChainSyncResources m blk Source #

The data used by the point scheduler to interact with the mocked protocol handler in Test.Consensus.PeerSimulator.ScheduledChainSyncServer.

Constructors

ChainSyncResources
Fields csrCurrentIntersection ∷ StrictTVar m (Point blk) The current known intersection with the chain of the client. csrServer ∷ ChainSyncServer (Header blk) (Point blk) (Tip blk) m () The final server passed to typed-protocols. csrTickStarted ∷ STM m () This action blocks while this peer is inactive in the point schedule.

data PeerResources m blk Source #

The totality of resources used by a single peer in ChainSync and BlockFetch and by the scheduler to interact with it.

Constructors

PeerResources

Fields

prShared ∷ SharedResources m blk
Resources used by ChainSync and BlockFetch.
prChainSync ∷ ChainSyncResources m blk
Resources used by ChainSync only.
prBlockFetch ∷ BlockFetchResources m blk
Resources used by BlockFetch only.
prUpdateState ∷ NodeState blk → STM m ()
An action used by the scheduler to update the peer's advertised points and resume processing for the ChainSync and BlockFetch servers.

data PeerSimulatorResources m blk Source #

Resources for the peer simulator.

Constructors

PeerSimulatorResources
Fields psrPeers ∷ Map PeerId (PeerResources m blk) Resources for individual peers. psrHandles ∷ StrictTVar m (Map PeerId (ChainSyncClientHandle m TestBlock)) Handles to interact with the ChainSync client of each peer. See `ChainSyncClientHandle` for more details.

data SharedResources m blk Source #

Resources used by both ChainSync and BlockFetch for a single peer.

Constructors

SharedResources

Fields

srPeerId ∷ PeerId
The name of the peer.
srBlockTree ∷ BlockTree blk
The block tree in which the test is taking place. In combination to csssCurrentIntersection and the current point schedule tick, it allows to define which blocks to serve to the client.
srCurrentState ∷ StrictTVar m (Maybe (NodeState blk))
The currently active schedule point.
This is Maybe because we cannot wait for the initial state otherwise.
srTracer ∷ Tracer m (TraceEvent blk)

makeChainSyncResources ∷ IOLike m ⇒ STM m () → SharedResources m TestBlock → m (ChainSyncResources m TestBlock) Source #

Create all the resources used exclusively by the ChainSync handlers, and the ChainSync protocol server that uses the handlers to interface with the typed-protocols engine.

TODO move server construction to Run?

makePeerResources ∷ IOLike m ⇒ Tracer m (TraceEvent TestBlock) → BlockTree TestBlock → PeerId → m (PeerResources m TestBlock) Source #

Create all concurrency resources and the ChainSync protocol server used for a single peer.

A peer performs BlockFetch and ChainSync using a state of type NodeState that is updated by a separate scheduler, waking up the protocol handlers to process messages until the conditions of the new state are satisfied.

TODO pass BFR and CSR to runScheduled... rather than passing the individual resources in and storing the result

makePeerSimulatorResources ∷ IOLike m ⇒ Tracer m (TraceEvent TestBlock) → BlockTree TestBlock → NonEmpty PeerId → m (PeerSimulatorResources m TestBlock) Source #

Create resources for all given peers operating on the given block tree.