simon/ocaml-opentelemetry
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-opentelemetry.git synced 2026-03-11 04:58:39 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

test: in emit1, use implicit local storage

Browse source
This commit is contained in:
Simon Cruanes 2022-09-16 17:00:51 -04:00
parent 6bdf351313
commit 555a69a0de
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
tests/bin/emit1.ml
View file

@ -23,16 +23,17 @@ let run_job () =
let@ () = Fun.protect ~finally:(fun () -> Atomic.set stop true) in let@ () = Fun.protect ~finally:(fun () -> Atomic.set stop true) in
let i = ref 0 in let i = ref 0 in
while not @@ Atomic.get stop do while not @@ Atomic.get stop do
let@ scope = let@ _scope =
Atomic.incr num_tr; Atomic.incr num_tr;
T.Trace.with_ ~kind:T.Span.Span_kind_producer "loop.outer" T.Trace.with_ ~kind:T.Span.Span_kind_producer "loop.outer"
~attrs:[ "i", `Int !i ] ~attrs:[ "i", `Int !i ]
in in
for j = 0 to 4 do for j = 0 to 4 do
(* parent scope is found via thread local storage *)
let@ scope = let@ scope =
Atomic.incr num_tr; Atomic.incr num_tr;
T.Trace.with_ ~kind:T.Span.Span_kind_internal ~scope T.Trace.with_ ~kind:T.Span.Span_kind_internal
~attrs:[ "j", `Int j ] ~attrs:[ "j", `Int j ]
"loop.inner" "loop.inner"
in in