diff --git a/tezt/lib_tezos/RPC.ml b/tezt/lib_tezos/RPC.ml index b5b71c2c9b811c4ce63646c7c8482bef598fcc57..7f147eb5b0163dae3bfc33e0238efa9cd3337199 100644 --- a/tezt/lib_tezos/RPC.ml +++ b/tezt/lib_tezos/RPC.ml @@ -449,16 +449,18 @@ let get_chain_block_header_protocol_data ?(chain = "main") ?(block = "head") Fun.id let get_chain_block_operations ?(chain = "main") ?(block = "head") ?version - ?(force_metadata = false) () = + ?(force_metadata = false) ?(metadata = true) () = let query_string = Query_arg.opt "version" Fun.id version - @ if force_metadata then [("force_metadata", "")] else [] + @ + if force_metadata then [("force_metadata", "")] + else [] @ if metadata then [] else [("metadata", "never")] in make ~query_string GET ["chains"; chain; "blocks"; block; "operations"] Fun.id let get_chain_block_operations_validation_pass ?(chain = "main") - ?(block = "head") ?version ?(force_metadata = false) ?operation_offset - ~validation_pass () = + ?(block = "head") ?version ?(force_metadata = false) ?(metadata = true) + ?operation_offset ~validation_pass () = let path = [ "chains"; @@ -472,7 +474,9 @@ let get_chain_block_operations_validation_pass ?(chain = "main") in let query_string = Query_arg.opt "version" Fun.id version - @ if force_metadata then [("force_metadata", "")] else [] + @ + if force_metadata then [("force_metadata", "")] + else [] @ if metadata then [] else [("metadata", "never")] in make ~query_string GET path Fun.id diff --git a/tezt/lib_tezos/RPC.mli b/tezt/lib_tezos/RPC.mli index 3c7f2e478a5b38d03a0d008aa4eb927fb15bcee9..f2e907da5e79a9d501d6b0094a6265066aeec059 100644 --- a/tezt/lib_tezos/RPC.mli +++ b/tezt/lib_tezos/RPC.mli @@ -442,6 +442,7 @@ val get_chain_block_operations : ?block:string -> ?version:string -> ?force_metadata:bool -> + ?metadata:bool -> unit -> JSON.t t @@ -460,6 +461,7 @@ val get_chain_block_operations_validation_pass : ?block:string -> ?version:string -> ?force_metadata:bool -> + ?metadata:bool -> ?operation_offset:int -> validation_pass:int -> unit -> diff --git a/tezt/tests/cloud/dal.ml b/tezt/tests/cloud/dal.ml index e101ab45bb6e0db20416825a3bca7d06dd3d2f11..d581cdca57ee899de8d303302362943feab8b657 100644 --- a/tezt/tests/cloud/dal.ml +++ b/tezt/tests/cloud/dal.ml @@ -790,10 +790,11 @@ let update_ratio_attested_commitments_per_baker t per_level_info metrics = | None -> (* No attestation in block *) 0 | Some (Some z) when n = 0 -> if z = Z.zero then (* No slot were published. *) 100 - else - Test.fail + else ( + Log.error "Wow wow wait! It seems an invariant is broken. \ - Either on the test side, or on the DAL node side" + Either on the test side, or on the DAL node side" ; + 100) | Some (Some z) -> (* Attestation with DAL payload *) if n = 0 then 100 else Z.popcount z * 100 / n diff --git a/tezt/tests/cloud/tezos.ml b/tezt/tests/cloud/tezos.ml index 93ffdebc40a4f2a882a44a6310337787fe21d318..937cb8fd5f4c652a374b4d314d5c26b0b26c69d9 100644 --- a/tezt/tests/cloud/tezos.ml +++ b/tezt/tests/cloud/tezos.ml @@ -21,6 +21,7 @@ module Node = struct let rpc_port = Agent.next_available_port agent in let net_port = Agent.next_available_port agent in let metrics_port = Agent.next_available_port agent in + let arguments = Metadata_size_limit (Some 10_000) :: arguments in create ?data_dir ?name @@ -39,6 +40,7 @@ module Node = struct let rpc_port = Agent.next_available_port agent in let net_port = Agent.next_available_port agent in let metrics_port = Agent.next_available_port agent in + let arguments = Metadata_size_limit (Some 10_000) :: arguments in init ?name ?data_dir