simon/ocaml-trace
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-trace.git synced 2026-03-08 03:47:57 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix test

Browse source
This commit is contained in:
Simon Cruanes 2025-04-09 10:12:23 -04:00
parent cd6f6f6025
commit 71dc18c00a
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
test/t1.ml
View file

@ -7,7 +7,7 @@ let run () =
for _i = 1 to 50 do for _i = 1 to 50 do
Trace.with_span ~__FILE__ ~__LINE__ "outer.loop" @@ fun _sp -> Trace.with_span ~__FILE__ ~__LINE__ "outer.loop" @@ fun _sp ->
let pseudo_async_sp = let pseudo_async_sp =
Trace.enter_manual_toplevel_span ~__FILE__ ~__LINE__ "fake_sleep" Trace.enter_manual_span ~parent:None ~__FILE__ ~__LINE__ "fake_sleep"
in in
for _j = 2 to 5 do for _j = 2 to 5 do
@ -22,7 +22,8 @@ let run () =
if _j = 2 then ( if _j = 2 then (
Trace.add_data_to_span _sp [ "j", `Int _j ]; Trace.add_data_to_span _sp [ "j", `Int _j ];
let _sp = let _sp =
Trace.enter_manual_sub_span ~parent:pseudo_async_sp Trace.enter_manual_span
~parent:(Some (Trace.ctx_of_span pseudo_async_sp))
~flavor: ~flavor:
(if _i mod 3 = 0 then (if _i mod 3 = 0 then
`Sync `Sync