Make (integration_test_lib.Integration_test

Parameters

module Engine : Intf.Engine.S

Signature

module Event_router : Intf.Dsl.Event_router_intf with module Engine := Engine

module Network_state : 
  Intf.Dsl.Network_state_intf
    with module Engine := Engine
     and module Event_router := Event_router

module Wait_condition : 
  Intf.Dsl.Wait_condition_intf
    with module Engine := Engine
     and module Event_router := Event_router
     and module Network_state := Network_state

type t

val section_hard : string -> 'a Malleable_error.t -> 'a Malleable_error.t

val section : string -> unit Malleable_error.t -> unit Malleable_error.t

val network_state : t -> Network_state.t

val event_router : t -> Event_router.t

val wait_for : t -> Wait_condition.t -> unit Malleable_error.t

val create : 
  logger:Logger.t ->
  network:Engine.Network.t ->
  event_router:Event_router.t ->
  network_state_reader:Network_state.t Pipe_lib.Broadcast_pipe.Reader.t ->
  [ `Don't_call_in_tests of t ]

type log_error_accumulator

val watch_log_errors : 
  logger:Logger.t ->
  event_router:Event_router.t ->
  on_fatal_error:( Logger.Message.t -> unit ) ->
  log_error_accumulator

val lift_accumulated_log_errors : 
  ?exit_code:int ->
  log_error_accumulator ->
  Test_error.remote_error Test_error.Set.t