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

better test

Browse source
This commit is contained in:
Simon Cruanes 2022-03-17 14:22:10 -04:00
parent 3beacb1f18
commit 3006e293b0
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 24 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
tests/emit1.ml
View file

@ -1,13 +1,17 @@
module T = Opentelemetry module T = Opentelemetry
let spf = Printf.sprintf
let (let@) f x = f x let (let@) f x = f x
let run () = let run () =
Printf.printf "collector is on %S\n%!" (Opentelemetry_client_ocurl.get_url()); Printf.printf "collector is on %S\n%!" (Opentelemetry_client_ocurl.get_url());
let i = ref 0 in let i = ref 0 in
while true do while true do
let@ (tr,sp) = T.Trace.with_ ~service_name:"t1" "loop" in let@ (tr,sp) = T.Trace.with_ ~service_name:"t1" "outer.loop" ~attrs:["i", `Int !i] in
for j=0 to 4 do
let@ (tr,sp) = T.Trace.with_ ~service_name:"t1" ~attrs:["j", `Int j] "loop.inner" in
Unix.sleepf 2.; Unix.sleepf 2.;
let gc = Gc.stat() in let gc = Gc.stat() in
@ -28,6 +32,7 @@ let run () =
ignore _arr; ignore _arr;
Unix.sleepf 0.1; Unix.sleepf 0.1;
end; end;
done;
done done
let () = let () =