mbarbin / fingerboard / 116

coverage: 95.087% (-0.5%) from 95.592%
116

push

github

mbarbin 
Use Code_error.raise

40 of 84 new or added lines in 8 files covered. (47.62%)

77 existing lines in 10 files now uncovered.

3716 of 3908 relevant lines covered (95.09%)

18681.79 hits per line

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

75.0
/src/frequency.ml
1 
(**********************************************************************************)
2 
(*  Fingerboard - a microtonal geography of the cello fingerboard                 *)
3 
(*  Copyright (C) 2022-2024 Mathieu Barbin <mathieu.barbin@gmail.com>             *)
4 
(*                                                                                *)
5 
(*  This file is part of Fingerboard.                                             *)
6 
(*                                                                                *)
7 
(*  Fingerboard is free software: you can redistribute it and/or modify it under  *)
8 
(*  the terms of the GNU Affero General Public License as published by the Free   *)
9 
(*  Software Foundation, either version 3 of the License, or any later version.   *)
10 
(*                                                                                *)
11 
(*  Fingerboard is distributed in the hope that it will be useful, but WITHOUT    *)
12 
(*  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or         *)
13 
(*  FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License   *)
14 
(*  for more details.                                                             *)
15 
(*                                                                                *)
16 
(*  You should have received a copy of the GNU Affero General Public License      *)
17 
(*  along with Fingerboard. If not, see <https://www.gnu.org/licenses/>.          *)
18 
(**********************************************************************************)
19 









20



include struct










21



  [@@@coverage off]










22












23



  type t = float [@@deriving compare, equal, hash]










24












25



  let to_dyn = Dyn.float










26



end










27












28



let check_exn f =











NEW


29



  if Float.compare f 0. < 0 then Code_error.raise "Out of bounds." [ "f", f |> Dyn.float ]




×







30



;;










31












32



let of_float_exn f =










33



  check_exn f;




433✔





34



  f




433✔





35



;;










36












37



let to_float f = f




459✔





38



let a4_440 = 440.
























    

  • 

    •