mbarbin / fingerboard / 115

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

Pull #10

github

web-flow 
Merge ccb9da732 into f4a989aa2
Pull Request #10: Switch tests to dyn syntax

417 of 479 new or added lines in 22 files covered. (87.06%)

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

25.0
/src/stdlib/code_error.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



type t =










21



  { message : string










22



  ; data : (string * Dyn.t) list










23



  }










24












25



exception E of t










26













NEW


27



let raise message data = raise (E { message; data })




×








NEW


28



let to_dyn { message; data } = Dyn.Tuple [ Dyn.String message; Record data ]




×







29












30



let () =











31



  Printexc.register_printer (function




49✔






NEW


32



    | E t -> Some (Dyn.to_string (to_dyn t))




×







33



    | _ -> None [@coverage off])










34



;;
























    

  • 

    •