From 1a75bbf95c71f22af433391e74cf79199fa52a72 Mon Sep 17 00:00:00 2001
From: Vincent Botbol <vincent.botbol@tezcore.com>
Date: Mon, 9 Jul 2018 11:19:30 +0200
Subject: [PATCH] Alpha/Tests: fix non-increasing level when finalizing an
 incremental block

---
 src/proto_alpha/lib_protocol/test/helpers/incremental.ml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/proto_alpha/lib_protocol/test/helpers/incremental.ml b/src/proto_alpha/lib_protocol/test/helpers/incremental.ml
index b6153dd85..ebd9e619c 100644
--- a/src/proto_alpha/lib_protocol/test/helpers/incremental.ml
+++ b/src/proto_alpha/lib_protocol/test/helpers/incremental.ml
@@ -164,6 +164,7 @@ let finalize_block st =
     { st.header with
       shell = {
         st.header.shell with
+        level = Int32.succ st.header.shell.level ;
         operations_hash ; fitness = result.fitness ;
       } } in
   let hash = Block_header.hash header in