MinaProtocol / mina / 2863

coverage: 30.754% (-16.6%) from 47.311%
2863

push

buildkite

web-flow 
Merge pull request #16296 from MinaProtocol/dkijania/more_multi_jobs

more multi jobs in CI

20276 of 65930 relevant lines covered (30.75%)

8631.7 hits per line

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

20.0
/src/lib/work_selector/random.ml
1 
open Core_kernel
1✔
2 









3



module Make










4



    (Inputs : Intf.Inputs_intf)










5



    (Lib : Intf.Lib_intf with module Inputs := Inputs) =










6



struct










7



  let work ~snark_pool ~fee ~logger (state : Lib.State.t) =










8



    Lib.State.remove_old_assignments state ~logger ;




×







9



    let unseen_jobs = Lib.State.all_unseen_works state in




×







10



    match Lib.get_expensive_work ~snark_pool ~fee unseen_jobs with




×







11



    | [] ->




×







12



        None










13



    | expensive_work ->




×







14



        let i = Random.int (List.length expensive_work) in




×







15



        let x = List.nth_exn expensive_work i in




×







16



        Lib.State.set state x ; Some x




×







17












18



  let remove = Lib.State.remove










19












20



  let pending_work_statements = Lib.pending_work_statements










21



end










22












23



let%test_module "test" =










24



  ( module struct










25



    module Test = Test.Make_test (Make)










26



  end )




1✔



















    

  • 

    •