mbarbin / crs / 276

coverage: 99.845%. First build
276

Pull #105

github

web-flow 
Merge 1066537ea into 88abc0f42
Pull Request #105: Remove some ppx deps

35 of 38 new or added lines in 5 files covered. (92.11%)

1929 of 1932 relevant lines covered (99.84%)

140.92 hits per line

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

88.89
/lib/cr_comment/src/priority.ml
1 
(********************************************************************************)
2 
(*  crs - A tool for managing code review comments embedded in source code      *)
3 
(*  Copyright (C) 2024-2025 Mathieu Barbin <mathieu.barbin@gmail.com>           *)
4 
(*                                                                              *)
5 
(*  This file is part of crs.                                                   *)
6 
(*                                                                              *)
7 
(*  crs is free software; you can redistribute it and/or modify it under the    *)
8 
(*  terms of the GNU Lesser General Public License as published by the Free     *)
9 
(*  Software Foundation either version 3 of the License, or any later version,  *)
10 
(*  with the LGPL-3.0 Linking Exception.                                        *)
11 
(*                                                                              *)
12 
(*  crs is distributed in the hope that it will be useful, but WITHOUT ANY      *)
13 
(*  WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS   *)
14 
(*  FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License and     *)
15 
(*  the file `NOTICE.md` at the root of this repository for more details.       *)
16 
(*                                                                              *)
17 
(*  You should have received a copy of the GNU Lesser General Public License    *)
18 
(*  and the LGPL-3.0 Linking Exception along with this library. If not, see     *)
19 
(*  <http://www.gnu.org/licenses/> and <https://spdx.org>, respectively.        *)
20 
(********************************************************************************)
21 









22



type t =










23



  | Now










24



  | Soon










25



  | Someday










26












27



let variant_constructor_rank = function











28



  | Now -> 0




16✔






29



  | Soon -> 1




2✔






30



  | Someday -> 2




2✔





31



;;










32












33



let compare t1 t2 =











NEW


34



  Int.compare (variant_constructor_rank t1) (variant_constructor_rank t2)




×







35



;;










36













37



let equal t1 t2 = Int.equal (variant_constructor_rank t1) (variant_constructor_rank t2)




10✔





38



let all = [ Now; Soon; Someday ]










39












40



let variant_constructor_name = function










41



  | Now -> "Now"




60✔





42



  | Soon -> "Soon"




5✔





43



  | Someday -> "Someday"




6✔





44



;;










45












46



let to_dyn t = Dyn.Variant (variant_constructor_name t, [])




71✔



















    

  • 

    •