MinaProtocol / mina / 2850

coverage: 33.411% (-27.7%) from 61.098%
2850

push

buildkite

web-flow 
Merge pull request #16306 from MinaProtocol/dkijania/fix_promotion_to_gcr

Fix promotion job PUBLISH misuse

22272 of 66661 relevant lines covered (33.41%)

129089.82 hits per line

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

60.0
/src/lib/graphql_lib/block_time/graphql_scalars.ml
1 
open Graphql_basic_scalars.Utils
2✔
2 
open Graphql_basic_scalars.Testing
3 









4



module Make (Schema : Schema) = struct










5



  module type Json_intf =










6



    Json_intf_any_typ with type ('a, 'b) typ := ('a, 'b) Schema.typ










7












8



  module BlockTime : Json_intf with type t = Block_time.t = struct










9



    type nonrec t = Block_time.t










10












11



    let parse json =










12



      Yojson.Basic.Util.to_string json |> Block_time.of_string_exn




×







13












14



    let serialize timestamp = `String (Block_time.to_string_exn timestamp)




×







15












16



    let typ () = Schema.scalar "BlockTime" ~coerce:serialize




1✔





17



  end










18



end










19












20



include Make (Schema)










21












22



let%test_module "Roundtrip tests" =










23



  ( module struct










24



    include Make (Test_schema)










25












26



    let%test_module "BlockTime" = (module Make_test (BlockTime) (Block_time))










27



  end )




4✔



















    

  • 

    •