MinaProtocol / mina / 411

Committed 24 Jul 2025 03:14PM UTC coverage: 33.188% (-27.7%) from 60.871%

Build # 411

Build Type

push

buildkite

Committed by

Commit Message

Merge pull request #17541 from MinaProtocol/brian/merge-compatible-into-develop

Merge compatible into develop

Coverage Stats

164 of 702 new or added lines in 96 files covered. (23.36%)

18243 existing lines in 393 files now uncovered.

23983 of 72264 relevant lines covered (33.19%)

24667.26 hits per line

Source File
Press 'n' to go to next uncovered line, 'b' for previous

10.0

/src/lib/graphql_wrapper/ocaml_graphql_server_tests/test_common.ml

1	module Schema = Graphql_wrapper.Make (Graphql.Schema)	1✔
2
3	let list_of_seq seq =
UNCOV 4	let rec loop seq =	×
UNCOV 5	match seq () with	×
UNCOV 6	\| Seq.Nil ->	×
7	[]
UNCOV 8	\| Seq.Cons (Ok x, next) ->	×
UNCOV 9	x :: loop next	×
10	\| Seq.Cons (Error _, _) ->
11	assert false
12	in
13	loop seq
14
15	let test_query schema ctx ?variables ?operation_name query expected =
UNCOV 16	match Graphql_parser.parse query with	×
17	\| Error err ->	×
18	failwith err
UNCOV 19	\| Ok doc ->	×
20	let result =
21	match Schema.execute schema ctx ?variables ?operation_name doc with
UNCOV 22	\| Ok (`Response data) ->	×
23	data
UNCOV 24	\| Ok (`Stream stream) -> (	×
25	try
26	match stream () with
UNCOV 27	\| Seq.Cons (Ok _, _) ->	×
UNCOV 28	`List (list_of_seq stream)	×
29	\| Seq.Cons (Error err, _) ->	×
30	err
31	\| Seq.Nil ->	×
32	`Null
UNCOV 33	with _ -> `String "caught stream exn" )	×
UNCOV 34	\| Error err ->	×
35	err
36	in
37	if result <> expected then
38	failwith	×
39	@@ Format.asprintf "@[result:@;%a@;expected:@;%a@]" Yojson.Basic.pp	×
40	result Yojson.Basic.pp expected	1✔