29 lines
595 B
OCaml
29 lines
595 B
OCaml
|
open! Base
|
||
|
|
open! Import
|
||
|
|
|
||
|
|
let errors =
|
||
|
|
[ Error.of_string "ABC"
|
||
|
|
; Error.tag ~tag:"DEF" (Error.of_thunk (fun () -> "GHI"))
|
||
|
|
; Error.create_s [%message "foo" ~bar:(31 : int)]
|
||
|
|
]
|
||
|
|
;;
|
||
|
|
|
||
|
|
let%expect_test _ =
|
||
|
|
List.iter errors ~f:(fun error -> show_raise (fun () -> Error.raise error));
|
||
|
|
[%expect {|
|
||
|
|
(raised ABC)
|
||
|
|
(raised (DEF GHI))
|
||
|
|
(raised (foo (bar 31)))
|
||
|
|
|}]
|
||
|
|
;;
|
||
|
|
|
||
|
|
let%expect_test _ =
|
||
|
|
List.iter errors ~f:(fun error ->
|
||
|
|
show_raise (fun () -> Error.raise_s [%sexp (error : Error.t)]));
|
||
|
|
[%expect {|
|
||
|
|
(raised ABC)
|
||
|
|
(raised (DEF GHI))
|
||
|
|
(raised (foo (bar 31)))
|
||
|
|
|}]
|
||
|
|
;;
|