MinaProtocol / mina / 63

Committed 07 Apr 2025 05:16PM UTC coverage: 32.437%. First build

Build # 63

Build Type

push

buildkite

Committed by

Commit Message

Merge pull request #16873 from MinaProtocol/amcie-merging-release-to-master

Merging 3.1.0 release branch to master

Run Details

837 of 3614 new or added lines in 177 files covered. (23.16%)

23213 of 71564 relevant lines covered (32.44%)

16775.38 hits per line

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

11.11

/src/lib/disk_cache/utils.ml

1	open Core	4✔
2	open Async
3
4	let failed_to_get_cache_folder_status ~logger ~(error_msg : string) ~path =
NEW 5	[%log error] "%s" error_msg ~metadata:[ ("path", `String path) ] ;	×
NEW 6	`Initialization_error (Error.createf "%s (%s)" error_msg path)	×
7
8	(** Initialize a directory at a path:
9	- if it does not exist, create it
10	- if it exists, clear it
11	- if the path provided is a file, fail
12	- if it is not impossible to retrieve the status of the path, fail
13	*)
14	let initialize_dir path ~logger =
NEW 15	let fail error_msg =	×
NEW 16	Deferred.Result.fail	×
17	(failed_to_get_cache_folder_status ~logger ~error_msg ~path)
18	in
NEW 19	match%bind Sys.is_directory path with	×
NEW 20	\| `Yes ->	×
NEW 21	let%map () = File_system.clear_dir path in	×
NEW 22	Ok path	×
NEW 23	\| `No -> (	×
NEW 24	match%bind Sys.file_exists ~follow_symlinks:false path with	×
NEW 25	\| `Yes ->	×
26	fail "Path to proof cache folder points to a non-directory"
NEW 27	\| `No ->	×
NEW 28	let%map () = File_system.create_dir path in	×
NEW 29	Ok path	×
NEW 30	\| `Unknown ->	×
31	fail "Cannot evaluate existence of cache folder" )
NEW 32	\| `Unknown ->	×
33	fail "Cannot evaluate existence of cache folder"	8✔