14 lines
355 B
OCaml
14 lines
355 B
OCaml
open! Import
|
|
open! Backtrace
|
|
|
|
let%test_unit (_ [@tags "no-js"]) =
|
|
let t = get () in
|
|
assert (String.length (to_string t) > 0)
|
|
;;
|
|
|
|
let%expect_test _ =
|
|
Backtrace.elide := true;
|
|
Stdio.Out_channel.(output_string stdout)
|
|
(Sexp.to_string (sexp_of_t (Exn.with_recording false ~f:Exn.most_recent)));
|
|
[%expect {| ("<backtrace elided in test>") |}]
|
|
;;
|