mirror of
https://github.com/ocaml-tracing/ocaml-trace.git
synced 2026-03-07 18:37:56 -05:00
14 lines
449 B
OCaml
14 lines
449 B
OCaml
let run () =
|
|
Trace.set_process_name "main";
|
|
Trace.set_thread_name "t1";
|
|
for _i = 1 to 50 do
|
|
Trace.with_span ~__FILE__ ~__LINE__ "outer.loop" @@ fun _sp ->
|
|
for _j = 2 to 5 do
|
|
Trace.with_span ~__FILE__ ~__LINE__ "inner.loop" @@ fun _sp ->
|
|
Trace.messagef ~__FILE__ ~__LINE__ (fun k -> k "hello %d %d" _i _j)
|
|
done
|
|
done
|
|
|
|
let () =
|
|
Trace_tef.Internal_.mock_all_ ();
|
|
Trace_tef.with_setup ~out:`Stdout @@ fun () -> run ()
|