ocaml / odoc / 2403

coverage: 72.971% (+0.1%) from 72.848%
2403

Pull #1193

github

web-flow 
Merge 93aa604a2 into 0ba1fdbe6
Pull Request #1193: Specify children order in frontmatter

140 of 154 new or added lines in 10 files covered. (90.91%)

60 existing lines in 5 files now uncovered.

10248 of 14044 relevant lines covered (72.97%)

2965.35 hits per line

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

87.5
/src/manpage/link.ml
1 
open Odoc_document
2 









3



let for_printing url = List.map snd @@ Url.Path.to_list url




184✔





4












5



let segment_to_string (kind, name) =










6



  Format.asprintf "%a%s" Url.Path.pp_disambiguating_prefix kind name




771✔





7












8



let as_filename ?(add_ext = true) (url : Url.Path.t) =




359✔





9



  let components = Url.Path.to_list url in




359✔





10



  let dir, path =




359✔





11



    Url.Path.split










12



      ~is_dir:(function `Page -> `IfNotLast | _ -> `Never)




10✔





13



      components










14



  in










15



  let dir = List.map segment_to_string dir in




359✔





16



  let path = String.concat "." (List.map segment_to_string path) in




359✔





17



  let str_path = String.concat Fpath.dir_sep (dir @ [ path ]) in




359✔






UNCOV

18



  if add_ext then Fpath.(v str_path + ".3o") else Fpath.v str_path




×







19












20



let rec is_class_or_module_path (url : Url.Path.t) =










21



  match url.kind with




2,435✔






UNCOV

22



  | `Module | `LeafPage | `Page | `Class -> (




×







23



      match url.parent with










24



      | None -> true




571✔





25



      | Some url -> is_class_or_module_path url)




1,017✔





26



  | _ -> false




847✔





27












28



let should_inline x = not @@ is_class_or_module_path x




1,418✔



















    

  • 

    •