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

Tests: add Op.seed_nonce_revelation

Browse Source
This commit is contained in:
Marco Stronati 2018-04-09 12:33:36 +02:00 committed by Grégoire Henry
parent dde6addbfb
commit b2a09d3edc
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/proto_alpha/lib_protocol/test/helpers/op.ml
View File

@ -206,3 +206,12 @@ let double_baking ctxt bh1 bh2 =
signature = None ;
} ;
}
let seed_nonce_revelation ctxt level nonce =
return
{ shell = { branch = Context.branch ctxt } ;
protocol_data = Operation_data {
contents = Single (Seed_nonce_revelation { level ; nonce }) ;
signature = None ;
} ;
}

4
src/proto_alpha/lib_protocol/test/helpers/op.mli
View File

@ -74,3 +74,7 @@ val activation:
Context.t ->
Signature.Public_key_hash.t -> Blinded_public_key_hash.activation_code ->
Operation.packed tzresult Lwt.t
(** Reveals a seed_nonce that was previously committed at a certain level *)
val seed_nonce_revelation:
Context.t -> Raw_level.t -> Nonce.t -> Operation.packed tzresult Lwt.t