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

update test

Browse source
This commit is contained in:
Simon Cruanes 2023-11-28 15:39:42 -05:00
parent cd57547232
commit 2d3eee8cb4
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 1123 additions and 1020 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2140
test/t1.expected
View file

File diff suppressed because it is too large Load diff

3
test/t1.ml
View file

@ -1,3 +1,5 @@
let ( let@ ) = ( @@ )
let run () = let run () =
Trace.set_process_name "main"; Trace.set_process_name "main";
Trace.set_thread_name "t1"; Trace.set_thread_name "t1";
@ -20,6 +22,7 @@ let run () =
Trace.add_data_to_span _sp [ "i", `Int _i ]; Trace.add_data_to_span _sp [ "i", `Int _i ];
if _j = 2 then ( if _j = 2 then (
let@ () = Trace.with_context "LocalFrame" in
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_sub_span ~parent:pseudo_async_sp