balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Alpha/Test/helpers: add call to delegate RPC

Browse Source
This commit is contained in:
bruno 2018-06-26 12:36:00 +02:00 committed by Benjamin Canou
parent 9f30b220e4
commit 42c7b004ec
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/proto_alpha/lib_protocol/test/helpers/context.ml
View File

@ -139,6 +139,9 @@ module Contract = struct
Alpha_services.Contract.manager_key rpc_ctxt ctxt contract >>=? fun (_, res) -> Alpha_services.Contract.manager_key rpc_ctxt ctxt contract >>=? fun (_, res) ->
return (res <> None) return (res <> None)
let delegate ctxt contract =
Alpha_services.Contract.delegate rpc_ctxt ctxt contract
let delegate_opt ctxt contract = let delegate_opt ctxt contract =
Alpha_services.Contract.delegate_opt rpc_ctxt ctxt contract Alpha_services.Contract.delegate_opt rpc_ctxt ctxt contract

1
src/proto_alpha/lib_protocol/test/helpers/context.mli
View File

@ -48,6 +48,7 @@ module Contract : sig
val manager: t -> Contract.t -> Account.t tzresult Lwt.t val manager: t -> Contract.t -> Account.t tzresult Lwt.t
val is_manager_key_revealed: t -> Contract.t -> bool tzresult Lwt.t val is_manager_key_revealed: t -> Contract.t -> bool tzresult Lwt.t
val delegate: t -> Contract.t -> public_key_hash tzresult Lwt.t
val delegate_opt: t -> Contract.t -> public_key_hash option tzresult Lwt.t val delegate_opt: t -> Contract.t -> public_key_hash option tzresult Lwt.t
end end