Consensus_helpers (mavkit-protocol-alpha-libs.Mavryk_alpha_test_helpers.Consensus

type mode =

| Application
| Construction
| Mempool

val show_mode : mode -> string

type kind =

| Preattestation
| Attestation

val test_consensus_operation : 
  ?delegate:Mavryk_protocol_alpha.Protocol.Alpha_context.public_key_hash ->
  ?slot:Mavryk_protocol_alpha.Protocol.Alpha_context.Slot.t ->
  ?level:Mavryk_protocol_alpha.Protocol.Alpha_context.Raw_level.t ->
  ?round:Mavryk_protocol_alpha.Protocol.Alpha_context.Round.t ->
  ?block_payload_hash:Mavryk_protocol_alpha.Protocol.Block_payload_hash.t ->
  ?branch:Mavryk_base.TzPervasives.Block_hash.t ->
  attested_block:Block.t ->
  ?predecessor:Block.t ->
  ?error:(Mavryk_protocol_alpha.Environment.Error_monad.error -> bool) ->
  loc:string ->
  kind ->
  mode ->
  (unit, Mavryk_base.TzPervasives.tztrace) Stdlib.result Lwt.t

Craft an attestation or preattestation, and bake a block containing it (in application or construction modes) or inject it into a mempool. When error is None, check that it succeeds, otherwise check that it fails as specified by error.

By default, the (pre)attestation is for the first slot and is signed by the delegate that owns this slot. Moreover, the operation points to the given attested_block: in other words, it has that block's level, round, payload hash, and its branch is the predecessor of that block. Optional arguments allow to override these default parameters.

The predecessor is used as the predecessor of the baked block or the head of the mempool. When it is not provided, we use the attested_block for this.

val test_consensus_operation_all_modes_different_outcomes : 
  ?delegate:Mavryk_protocol_alpha.Protocol.Alpha_context.public_key_hash ->
  ?slot:Mavryk_protocol_alpha.Protocol.Alpha_context.Slot.t ->
  ?level:Mavryk_protocol_alpha.Protocol.Alpha_context.Raw_level.t ->
  ?round:Mavryk_protocol_alpha.Protocol.Alpha_context.Round.t ->
  ?block_payload_hash:Mavryk_protocol_alpha.Protocol.Block_payload_hash.t ->
  ?branch:Mavryk_base.TzPervasives.Block_hash.t ->
  attested_block:Block.t ->
  ?predecessor:Block.t ->
  loc:string ->
  ?application_error:
    (Mavryk_protocol_alpha.Environment.Error_monad.error -> bool) ->
  ?construction_error:
    (Mavryk_protocol_alpha.Environment.Error_monad.error -> bool) ->
  ?mempool_error:(Mavryk_protocol_alpha.Environment.Error_monad.error -> bool) ->
  kind ->
  (unit, Mavryk_base.TzPervasives.tztrace) Stdlib.result Lwt.t

val test_consensus_operation_all_modes : 
  ?delegate:Mavryk_protocol_alpha.Protocol.Alpha_context.public_key_hash ->
  ?slot:Mavryk_protocol_alpha.Protocol.Alpha_context.Slot.t ->
  ?level:Mavryk_protocol_alpha.Protocol.Alpha_context.Raw_level.t ->
  ?round:Mavryk_protocol_alpha.Protocol.Alpha_context.Round.t ->
  ?block_payload_hash:Mavryk_protocol_alpha.Protocol.Block_payload_hash.t ->
  ?branch:Mavryk_base.TzPervasives.Block_hash.t ->
  attested_block:Block.t ->
  ?predecessor:Block.t ->
  ?error:(Mavryk_protocol_alpha.Environment.Error_monad.error -> bool) ->
  loc:string ->
  kind ->
  (unit, Mavryk_base.TzPervasives.tztrace) Stdlib.result Lwt.t

val delegate_of_first_slot : 
  Context.t ->
  (Mavryk_protocol_alpha.Environment.Signature.public_key_hash
   * Mavryk_protocol_alpha.Protocol.Alpha_context.Slot.t,
    Mavryk_base.TzPervasives.tztrace)
    Stdlib.result
    Lwt.t

val delegate_of_slot : 
  ?different_slot:bool ->
  Mavryk_protocol_alpha.Protocol.Alpha_context.Slot.t ->
  Context.t ->
  (Mavryk_protocol_alpha.Environment.Signature.public_key_hash,
    Mavryk_base.TzPervasives.tztrace)
    Stdlib.result
    Lwt.t

val test_consensus_op_for_next : 
  genesis:Block.t ->
  kind:[< `Attestation | `Preattestation ] ->
  next:[< `Level | `Round ] ->
  (unit, Mavryk_base.TzPervasives.tztrace) Stdlib.result Lwt.t