unikernel/duniverse/base/test/test_backtrace.ml

@@ -0,0 +1,14 @@
+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>") |}]
+;;