Adaptive_issuance_helpers (mavkit-protocol-alpha-libs.Mavryk_alpha_test_helpers.Adaptive_issuance

type staking_parameters = {

limit_of_staking_over_baking : Q.t;
edge_of_baking_over_staking : Q.t;

}

Abstraction of the staking parameters for tests

val default_params : staking_parameters

val get_launch_cycle : 
  loc:string ->
  Block.t ->
  (Mavryk_protocol_alpha.Protocol.Alpha_context.Cycle.t,
    Mavryk_base.TzPervasives.tztrace)
    Stdlib.result
    Lwt.t

AI operations

val stake : 
  Context.t ->
  Mavryk_protocol_alpha.Protocol.Alpha_context.Contract.t ->
  Mavryk_protocol_alpha.Protocol.Alpha_context.Tez.t ->
  Mavryk_protocol_alpha.Protocol.Alpha_context.Operation.packed
    Mavryk_base.TzPervasives.tzresult
    Lwt.t

val set_delegate_parameters : 
  Context.t ->
  Mavryk_protocol_alpha.Protocol.Alpha_context.Contract.t ->
  parameters:staking_parameters ->
  Mavryk_protocol_alpha.Protocol.Alpha_context.Operation.packed
    Mavryk_base.TzPervasives.tzresult
    Lwt.t

val unstake : 
  Context.t ->
  Mavryk_protocol_alpha.Protocol.Alpha_context.Contract.t ->
  Mavryk_protocol_alpha.Protocol.Alpha_context.Tez.t ->
  Mavryk_protocol_alpha.Protocol.Alpha_context.Operation.packed
    Mavryk_base.TzPervasives.tzresult
    Lwt.t

val finalize_unstake : 
  Context.t ->
  ?amount:Tez_helpers.t ->
  Mavryk_protocol_alpha.Protocol.Alpha_context.Contract.t ->
  Mavryk_protocol_alpha.Protocol.Alpha_context.Operation.packed
    Mavryk_base.TzPervasives.tzresult
    Lwt.t

val portion_of_rewards_to_liquid_for_cycle : 
  ?policy:Block.baker_policy ->
  Mavryk_alpha_test_helpers__Context.t ->
  Mavryk_protocol_alpha.Protocol.Alpha_context.Cycle.t ->
  Mavryk_protocol_alpha.Protocol.Alpha_context.public_key_hash ->
  Tez_helpers.t ->
  (Tez_helpers.t, Mavryk_base.TzPervasives.tztrace) Stdlib.result Lwt.t