simon/ocaml-trace
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-trace.git synced 2026-03-07 18:37:56 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

update test

Browse source
This commit is contained in:
Simon Cruanes 2023-08-29 14:54:57 -04:00
parent c683f6331b
commit 83baf45207
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 205 additions and 201 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

400
test/t1.expected
View file

File diff suppressed because it is too large Load diff

6
test/t1.ml
View file

@ -17,8 +17,10 @@ let run () =
Trace.message "world"; Trace.message "world";
Trace.counter_int "n" !n; Trace.counter_int "n" !n;
Trace.add_data_to_span _sp [ "i", `Int _i ];
if _j = 2 then ( if _j = 2 then (
(* fake micro sleep *) 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_sub_span ~parent:pseudo_async_sp
~flavor: ~flavor:
@ -28,6 +30,8 @@ let run () =
`Async) `Async)
~__FILE__ ~__LINE__ "sub-sleep" ~__FILE__ ~__LINE__ "sub-sleep"
in in
(* fake micro sleep *)
Thread.delay 0.005; Thread.delay 0.005;
Trace.exit_manual_span _sp Trace.exit_manual_span _sp
) else if _j = 3 then ) else if _j = 3 then