From 3fe599accfd85df2b8bcf9cddd652bd452bf5b92 Mon Sep 17 00:00:00 2001 From: Mehdi Bouaziz Date: Thu, 13 Oct 2022 17:47:58 +0200 Subject: [PATCH 1/2] Proto/Tests/Global constants: fix ignored result --- .../integration/michelson/test_global_constants_storage.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/proto_alpha/lib_protocol/test/integration/michelson/test_global_constants_storage.ml b/src/proto_alpha/lib_protocol/test/integration/michelson/test_global_constants_storage.ml index 53fcf7b020d2..0163d18707e3 100644 --- a/src/proto_alpha/lib_protocol/test/integration/michelson/test_global_constants_storage.ml +++ b/src/proto_alpha/lib_protocol/test/integration/michelson/test_global_constants_storage.ml @@ -80,8 +80,8 @@ let get_happy_path () = n_transactions 10 b alice bob (Tez.of_mutez_exn 1000L) >>=? fun b -> Incremental.finalize_block b >>=? fun b -> assert_unchanged b in - do_many_transfers b >>=? do_many_transfers >>=? do_many_transfers >>= fun _ -> - Lwt.return_ok () + do_many_transfers b >>=? do_many_transfers >>=? do_many_transfers + >>=? fun (_ : Block.t) -> Lwt.return_ok () (* Blocks that include a registration of a bad expression should fail. *) -- GitLab From 953ce353d1d2aa8cd69e0d194f9387b2ee625f9b Mon Sep 17 00:00:00 2001 From: Mehdi Bouaziz Date: Wed, 26 Oct 2022 12:34:22 +0000 Subject: [PATCH 2/2] Apply 1 suggestion(s) to 1 file(s) --- .../test/integration/michelson/test_global_constants_storage.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/proto_alpha/lib_protocol/test/integration/michelson/test_global_constants_storage.ml b/src/proto_alpha/lib_protocol/test/integration/michelson/test_global_constants_storage.ml index 0163d18707e3..7a031944fbed 100644 --- a/src/proto_alpha/lib_protocol/test/integration/michelson/test_global_constants_storage.ml +++ b/src/proto_alpha/lib_protocol/test/integration/michelson/test_global_constants_storage.ml @@ -55,7 +55,7 @@ let expr_to_hash expr = that values written to the global table of constants persist across blocks. *) let get_happy_path () = - Context.init2 () >>=? fun (b, (alice, bob)) -> + Context.init2 ~consensus_threshold:0 () >>=? fun (b, (alice, bob)) -> Incremental.begin_construction b >>=? fun b -> let expr_str = "Pair 3 7" in let expr = Expr.from_string expr_str in -- GitLab