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;