From d498d413bebb9963690411ab85a7cdd14faf882d Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Thu, 17 Mar 2022 14:39:11 -0400 Subject: [PATCH] test --- tests/emit1.ml | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) diff --git a/tests/emit1.ml b/tests/emit1.ml index dd3b46ae..a818ce22 100644 --- a/tests/emit1.ml +++ b/tests/emit1.ml @@ -7,11 +7,15 @@ let run () = Printf.printf "collector is on %S\n%!" (Opentelemetry_client_ocurl.get_url()); let i = ref 0 in while true do - let@ (tr,sp) = T.Trace.with_ ~service_name:"t1" "outer.loop" ~attrs:["i", `Int !i] in + let@ (tr,sp) = T.Trace.with_ ~kind:T.Span.Span_kind_producer + ~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 + let@ (_,sp) = T.Trace.with_ ~kind:T.Span.Span_kind_internal + ~trace_id:tr + ~service_name:"t1" ~attrs:["j", `Int j] + "loop.inner" in Unix.sleepf 2.; let gc = Gc.stat() in @@ -25,8 +29,11 @@ let run () = incr i; begin - let@ _ = T.Trace.with_ ~kind:T.Span.Span_kind_client - ~trace_id:tr ~parent:sp "alloc" in + let@ _ = + T.Trace.with_ ~kind:T.Span.Span_kind_internal + ~trace_id:tr ~parent:sp + ~service_name:"t1" + "alloc" in (* allocate some stuff *) let _arr = Sys.opaque_identity @@ Array.make (25 * 25551) 42.0 in ignore _arr;