package tezos-012-Psithaca-test-helpers

  1. Overview
  2. Docs
val pp : t -> string
val null : t
val eq : 'a -> 'a -> bool
val to_expr : loc:'a -> t -> ('a, Tezos_protocol_012_Psithaca.Protocol.Michelson_v1_primitives.prim) Tezos_micheline.Micheline.node
val to_michelson_string : t -> string
type exn +=
  1. | Invalid_storage_expr of string
val of_expr_exn : ('a, Tezos_protocol_012_Psithaca.Protocol.Michelson_v1_primitives.prim) Tezos_micheline.Micheline.node -> t

Note: parses a storage unparsed in readable mode (as e.g. returned by Alpha_services.Contract.storage), so that contracts are represented by strings.

val get : Context.t -> contract:Tezos_protocol_012_Psithaca.Protocol.Alpha_context.Contract.t -> t Tezos_base__TzPervasives.tzresult Lwt.t
val get_alpha_context : Context.t -> Tezos_protocol_012_Psithaca.Protocol.Alpha_context.t Tezos_base__TzPervasives.tzresult Lwt.t