Alpha/test: allow to deactivate seed renewal

This commit is contained in:
Grégoire Henry 2018-03-19 16:06:27 +01:00
parent dabf4c1578
commit edb40c7923

View File

@ -87,8 +87,9 @@ let from_raw
(Int32.div level_position blocks_per_voting_period) in (Int32.div level_position blocks_per_voting_period) in
let voting_period_position = let voting_period_position =
Int32.rem level_position blocks_per_voting_period in Int32.rem level_position blocks_per_voting_period in
let pos = Int32.rem cycle_position blocks_per_commitment in let expected_commitment =
let expected_commitment = Compare.Int32.(pos = 0l) in Compare.Int32.(Int32.rem cycle_position blocks_per_commitment =
Int32.pred blocks_per_commitment) in
{ level ; level_position ; { level ; level_position ;
cycle ; cycle_position ; cycle ; cycle_position ;
voting_period ; voting_period_position ; voting_period ; voting_period_position ;