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

Proto/Alpha: fix endorsement test

Browse Source
This commit is contained in:
Cagdas Bozman 2017-04-07 13:11:49 +02:00 committed by Benjamin Canou
parent 54027a701b
commit c1e2d8eb25
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/proto_alpha/test_endorsement.ml
View File

@ -174,10 +174,8 @@ let test_endorsement_rights contract block =
Helpers.Endorse.endorsement_rights contract block >>|? fun possibilities -> Helpers.Endorse.endorsement_rights contract block >>|? fun possibilities ->
possibilities <> [] possibilities <> []
let run _blkid (({ b1 ; b2 ; b3 ; b4 ; b5 } : Helpers.Account.bootstrap_accounts) as baccounts) = let run head (({ b1 ; b2 ; b3 ; b4 ; b5 } : Helpers.Account.bootstrap_accounts) as baccounts) =
(* Helpers.Mining.mine b1 blkid >>=? fun n -> *)
let head = `Head 0 in
let default_account = Helpers.Account.create "default_account" in let default_account = Helpers.Account.create "default_account" in
test_endorsement_rights default_account head >>=? fun has_right_to_endorse -> test_endorsement_rights default_account head >>=? fun has_right_to_endorse ->