mbarbin / cubzzle / 163

coverage: 84.046% (+5.4%) from 78.614%
163

push

github

web-flow 
Merge pull request #20 from mbarbin/reduce-deps

Reduce deps

104 of 110 new or added lines in 17 files covered. (94.55%)

295 of 351 relevant lines covered (84.05%)

2031506.78 hits per line

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

80.0
/stdlib/src/code_error.ml
1 
(*********************************************************************************)
2 
(*  cubzzle - Solver for a wooden cube puzzle                                    *)
3 
(*  SPDX-FileCopyrightText: 2022-2025 Mathieu Barbin <mathieu.barbin@gmail.com>  *)
4 
(*  SPDX-License-Identifier: MIT                                                 *)
5 
(*********************************************************************************)
6 









7



type t =










8



  { message : string










9



  ; data : (string * Dyn.t) list










10



  }










11












12



exception E of t










13













14



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




4✔






15



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




4✔





16












17



let () =











18



  Printexc.register_printer (function




11✔






19



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




4✔






NEW


20



    | _ -> None)




×







21



;;
























    

  • 

    •