xlog/test/test_xlog.ml

[%%xlog_import]

module Submodule = struct
  [%%xlog_import]

  let do_stuff () =
    [%xlog warn "meow"]
end

let () =
  Xlog.init_pretty_writer stdout ~min_level:Xlog.DEBUG;
  [%xlog info "meow meow %s %d" "test string" 1337];
  begin try
    failwith "meow2"
  with
  | e -> [%xlog exn e "oop's %d" 42069]
  end;
  [%xlog info "awa"];
  Submodule.do_stuff ()

module Submodule2 = struct
  [%%xlog_import]

  let do_stuff () =
    [%xlog warn "meow"]
end

let () = Submodule2.do_stuff ()