15 lines
355 B
OCaml
15 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>") |}]
|
||
|
|
;;
|