From c1e2d8eb256ef3e2e838a9f2b51da5fe2458b443 Mon Sep 17 00:00:00 2001 From: Cagdas Bozman Date: Fri, 7 Apr 2017 13:11:49 +0200 Subject: [PATCH] Proto/Alpha: fix endorsement test --- test/proto_alpha/test_endorsement.ml | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/test/proto_alpha/test_endorsement.ml b/test/proto_alpha/test_endorsement.ml index 6c8195406..9c6db5770 100644 --- a/test/proto_alpha/test_endorsement.ml +++ b/test/proto_alpha/test_endorsement.ml @@ -174,10 +174,8 @@ let test_endorsement_rights contract block = Helpers.Endorse.endorsement_rights contract block >>|? fun 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 test_endorsement_rights default_account head >>=? fun has_right_to_endorse ->