MinaProtocol / mina / 177

Committed 06 May 2025 07:33AM UTC coverage: 35.868% (-24.9%) from 60.761%

Build # 177

Build Type

push

buildkite

Committed by

web-flow

Commit Message

Merge pull request #17152 from MinaProtocol/dw/replace-codeowners-master

CODEOWNERS: add Deepthi, George and Danny

Run Details

25597 of 71365 relevant lines covered (35.87%)

26668.14 hits per line

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

18.18

/src/lib/disk_cache/identity/disk_cache.ml

open Async_kernel
open Core_kernel

module Make (Data : sig
  type t
end) =
struct
  type t = int ref

  type id = { data : Data.t }

  let initialize _path ~logger:_ = Deferred.Result.return (ref 0)

  let get _ (id : id) : Data.t = id.data

  let put (counter : t) x : id =
    incr counter ;
    let res = { data = x } in
    (* When this reference is GC'd, decrement the counter. *)
    Core.Gc.Expert.add_finalizer_last_exn res (fun () -> decr counter) ;
    res

  let count (counter : t) = !counter
end

let%test_module "disk_cache identity" =
  ( module struct
    include Disk_cache_test_lib.Make (Make)

    let%test_unit "remove data on gc" = remove_data_on_gc ()

    let%test_unit "simple read/write" = simple_write ()
  end )

1	open Async_kernel	18✔
2	open Core_kernel
3
4	module Make (Data : sig
5	type t
6	end) =
7	struct
8	type t = int ref
9
10	type id = { data : Data.t }
11
12	let initialize _path ~logger:_ = Deferred.Result.return (ref 0)	×
13
14	let get _ (id : id) : Data.t = id.data	×
15
16	let put (counter : t) x : id =
17	incr counter ;	×
18	let res = { data = x } in	×
19	(* When this reference is GC'd, decrement the counter. *)
20	Core.Gc.Expert.add_finalizer_last_exn res (fun () -> decr counter) ;	×
21	res	×
22
23	let count (counter : t) = !counter	×
24	end
25
26	let%test_module "disk_cache identity" =
27	( module struct
28	include Disk_cache_test_lib.Make (Make)
29
30	let%test_unit "remove data on gc" = remove_data_on_gc ()	×
31
32	let%test_unit "simple read/write" = simple_write ()	×
33	end )	36✔

MinaProtocol / mina / 177

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

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