File: test_backtrace.ml

package info (click to toggle)
janest-base 0.17.3-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 3,632 kB
  • sloc: ml: 48,653; ansic: 281; javascript: 126; makefile: 14
file content (14 lines) | stat: -rw-r--r-- 355 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
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>") |}]
;;