simon/ocaml-opentelemetry
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-opentelemetry.git synced 2026-03-07 18:37:56 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

emit1: more options

Browse source
This commit is contained in:
Simon Cruanes 2025-12-09 20:51:43 -05:00
parent 631f7cd01a
commit 03f5741629
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 15 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
tests/bin/emit1.ml
View file

@ -59,15 +59,16 @@ let run_job () =
try
Atomic.incr num_tr;
let@ _ =
OT.Tracer.with_ tracer ~kind:OT.Span.Span_kind_internal ~parent:scope
"alloc"
in
(* allocate some stuff *)
if !stress_alloc_ then (
let _arr = Sys.opaque_identity @@ Array.make (25 * 25551) 42.0 in
ignore _arr
);
(if !stress_alloc_ then
let@ _ =
OT.Tracer.with_ tracer ~kind:OT.Span.Span_kind_internal
~parent:scope "alloc"
in
let _arr : _ array =
Sys.opaque_identity @@ Array.make (25 * 25551) 42.0
in
ignore _arr);
Unix.sleepf !sleep_inner;
Atomic.incr num_sleep;
@ -78,7 +79,9 @@ let run_job () =
OT.Span.add_event scope (OT.Event.make "done with alloc")
with Failure _ -> ()
done
done
done;
(* Printf.eprintf "emit1.run_job: exit\n%!"; *)
()
let run () =
OT.Gc_metrics.setup_on_main_exporter ();
@ -113,6 +116,7 @@ let () =
let batch_traces = ref 400 in
let batch_metrics = ref 3 in
let batch_logs = ref 400 in
let self_trace = ref true in
let n_bg_threads = ref 0 in
let opts =
@ -130,6 +134,7 @@ let () =
"--sleep-outer", Arg.Set_float sleep_outer, " sleep (in s) in outer loop";
"-j", Arg.Set_int n_jobs, " number of parallel jobs";
"--bg-threads", Arg.Set_int n_bg_threads, " number of background threads";
"--no-self-trace", Arg.Clear self_trace, " disable self tracing";
"-n", Arg.Set_int n, " number of iterations (default ∞)";
]
|> Arg.align
@ -144,7 +149,7 @@ let () =
None
in
let config =
Opentelemetry_client_ocurl.Config.make ~debug:!debug ~self_trace:true
Opentelemetry_client_ocurl.Config.make ~debug:!debug ~self_trace:!self_trace
?bg_threads:(some_if_nzero n_bg_threads)
~batch_traces:(some_if_nzero batch_traces)
~batch_metrics:(some_if_nzero batch_metrics)