MinaProtocol / mina / 77

coverage: 35.871% (-24.9%) from 60.793%
77

push

buildkite

web-flow 
Merge pull request #16866 from MinaProtocol/georgeee/use-stable-zkapp_command-in-network-pool

Use Zkapp_command.Stable.Latest in network_pool

1 of 29 new or added lines in 2 files covered. (3.45%)

16190 existing lines in 348 files now uncovered.

25656 of 71523 relevant lines covered (35.87%)

34337.21 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
25✔
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 )




50✔



















    

  • 

    •