MinaProtocol / mina / 3391

coverage: 30.539% (-12.7%) from 43.251%
3391

push

buildkite

web-flow 
Merge pull request #16657 from MinaProtocol/georgeee/proof-cache-id-db

Introduce identity cache db

1 of 1 new or added line in 1 file covered. (100.0%)

16130 existing lines in 343 files now uncovered.

10806 of 35384 relevant lines covered (30.54%)

6862.06 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
19✔
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













UNCOV

12



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




×







13













UNCOV

14



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




×







15












16



  let put (counter : t) x : id =











UNCOV

17



    incr counter ;




×








UNCOV

18



    let res = { data = x } in




×







19



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











UNCOV

20



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




×








UNCOV

21



    res




×







22













UNCOV

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













UNCOV

30



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




×







31













UNCOV

32



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




×







33



  end )




38✔



















    

  • 

    •