19 lines
634 B
OCaml
19 lines
634 B
OCaml
open! Import
|
|
module Printexc = Stdlib.Printexc
|
|
|
|
let%expect_test "Printexc: built-in exception" =
|
|
print_endline (Printexc.to_string (Invalid_argument "bad"));
|
|
[%expect {| Invalid_argument("bad") |}]
|
|
;;
|
|
|
|
let%expect_test "Sexp conversion of built-in exceptions" =
|
|
print_endline (Sexp.to_string (sexp_of_exn (Invalid_argument "bad")));
|
|
[%expect {| (Invalid_argument bad) |}]
|
|
;;
|
|
|
|
exception My_invalid_argument of string [@@deriving sexp]
|
|
|
|
let%expect_test "Printexc: an exception with deriving sexp" =
|
|
print_endline (Printexc.to_string (My_invalid_argument "bad"));
|
|
[%expect {| (test_printexc.ml.My_invalid_argument bad) |}]
|
|
;;
|