Contract_helpers (mavkit-protocol-001-PtAtLas-libs.Mavryk_001_PtAtLas_test_helpers.Contract

val init : 
  unit ->
  (Block.t
   * Mavryk_protocol_environment_001_PtAtLas.Signature.Public_key_hash.t
   * Mavryk_protocol_001_PtAtLas.Protocol.Alpha_context.Contract.t
   * Mavryk_protocol_001_PtAtLas.Protocol.Alpha_context.Contract.t,
    Mavryk_base.TzPervasives.tztrace)
    Stdlib.result
    Lwt.t

Initializes 2 addresses to do only operations plus one that will be used to bake.

val read_file : string -> string

Return contents of a given file as string.

val load_script : 
  storage:string ->
  string ->
  Mavryk_protocol_001_PtAtLas.Protocol.Alpha_context.Script.t

Loads a script from file.

val originate_contract_hash : 
  string ->
  string ->
  Mavryk_protocol_001_PtAtLas.Protocol.Alpha_context.Contract.t ->
  Block.t ->
  Mavryk_protocol_001_PtAtLas.Protocol.Alpha_context.public_key_hash ->
  (Mavryk_protocol_001_PtAtLas.Protocol.Contract_hash.t * Block.t,
    Mavryk_base.TzPervasives.tztrace)
    Stdlib.result
    Lwt.t

Returns a block in which the contract is originated.

val originate_contract : 
  string ->
  string ->
  Mavryk_protocol_001_PtAtLas.Protocol.Alpha_context.Contract.t ->
  Block.t ->
  Mavryk_protocol_001_PtAtLas.Protocol.Alpha_context.public_key_hash ->
  (Mavryk_protocol_001_PtAtLas.Protocol.Alpha_context.Contract.t * Block.t,
    Mavryk_base.TzPervasives.tztrace)
    Stdlib.result
    Lwt.t

val fake_KT1 : Mavryk_protocol_001_PtAtLas.Protocol.Contract_hash.t

val default_self : Mavryk_protocol_001_PtAtLas.Protocol.Contract_hash.t

val default_payer : Mavryk_base.TzPervasives.Signature.Public_key_hash.t

val default_sender : 
  Mavryk_protocol_001_PtAtLas.Protocol.Alpha_context.Contract.t

val default_step_constants : 
  Mavryk_protocol_001_PtAtLas.Protocol.Script_interpreter.step_constants

val run_script : 
  Mavryk_raw_protocol_001_PtAtLas.Alpha_context.t ->
  ?logger:Mavryk_raw_protocol_001_PtAtLas.Script_typed_ir.logger ->
  ?step_constants:
    Mavryk_protocol_001_PtAtLas.Protocol.Script_interpreter.step_constants ->
  ?internal:bool ->
  string ->
  ?entrypoint:Mavryk_protocol_001_PtAtLas.Protocol.Alpha_context.Entrypoint.t ->
  storage:string ->
  parameter:string ->
  unit ->
  (Mavryk_protocol_001_PtAtLas.Protocol.Script_interpreter.execution_result
   * Mavryk_raw_protocol_001_PtAtLas.Alpha_context.context)
    Mavryk_base.TzPervasives.tzresult
    Lwt.t

Helper function that parses and typechecks a script, its initial storage and parameters from strings. It then executes the typed script with the storage and parameters and returns the result.

The step_constants argument passes in some data which remains constant throughout script's execution, hence the name. This includes addresses of the sender and payer, the address of the smart contract, the amount of Tez transferred to it and so on.

An internal operation is an operation generated by smart contract's execution rather than by an implicit account.

val originate_contract_from_string_hash : 
  script:string ->
  storage:string ->
  source_contract:Mavryk_protocol_001_PtAtLas.Protocol.Alpha_context.Contract.t ->
  baker:Mavryk_protocol_001_PtAtLas.Protocol.Alpha_context.public_key_hash ->
  Block.t ->
  (Mavryk_protocol_001_PtAtLas.Protocol.Contract_hash.t
   * Mavryk_protocol_001_PtAtLas.Protocol.Alpha_context.Script.t
   * Block.t,
    Mavryk_base.TzPervasives.tztrace)
    Stdlib.result
    Lwt.t

val originate_contract_from_string : 
  script:string ->
  storage:string ->
  source_contract:Mavryk_protocol_001_PtAtLas.Protocol.Alpha_context.Contract.t ->
  baker:Mavryk_protocol_001_PtAtLas.Protocol.Alpha_context.public_key_hash ->
  Block.t ->
  (Mavryk_protocol_001_PtAtLas.Protocol.Alpha_context.Contract.t
   * Mavryk_protocol_001_PtAtLas.Protocol.Alpha_context.Script.t
   * Block.t,
    Mavryk_base.TzPervasives.tztrace)
    Stdlib.result
    Lwt.t