MinaProtocol / mina / 60

coverage: 32.433%. First build
60

push

buildkite

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

Merging 3.1.0 release branch to master

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

23210 of 71564 relevant lines covered (32.43%)

16793.1 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
1 
open Async_kernel
21✔
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













NEW


12



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




×







13













NEW


14



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




×







15












16



  let put (counter : t) x : id =











NEW


17



    incr counter ;




×








NEW


18



    let res = { data = x } in




×







19



    (* When this reference is GC'd, decrement the counter. *)











NEW


20



    Core.Gc.Expert.add_finalizer_last_exn res (fun () -> decr counter) ;




×








NEW


21



    res




×







22













NEW


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













NEW


30



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




×







31













NEW


32



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




×








33



  end )




42✔



















    

  • 

    •