Module Test_scenario.Topology

Build static mavryk network topologies.

type node = Mavryk_node.t
type _ t = private
  1. | Mesh : {
    1. size : Internal_pervasives.int;
    } -> node Internal_pervasives.list t
  2. | Bottleneck : {
    1. name : Internal_pervasives.string;
    2. left : 'a network;
    3. right : 'b network;
    } -> ('a * node * 'b) t
  3. | Net_in_the_middle : {
    1. middle : 'm network;
    2. left : 'a network;
    3. right : 'b network;
    } -> ('a * 'm * 'b) t
and 'a network = {
  1. topology : 'a t;
  2. name : Internal_pervasives.string;
}
val sub : Internal_pervasives.string -> 'a t -> 'a network
val bottleneck : Internal_pervasives.string -> 'a network -> 'b network -> ('a * node * 'b) network
val node_count : 'a t -> Internal_pervasives.int
val net_in_the_middle : Internal_pervasives.string -> 'a network -> 'b network -> 'c network -> ('b * 'a * 'c) network