fix tests

This commit is contained in:
Simon Cruanes 2026-02-26 12:02:29 -05:00
parent 3752d70403
commit a36f91b350
4 changed files with 26 additions and 21 deletions

View file

@ -1,23 +1,22 @@
(executables
(names t1 t2 t_debug t_core)
(modules t1 t2 t_debug t_core)
(libraries trace))
(executables (tests
(names t_runtime_events) (names t1 t_core t_debug)
(modules t1 t_core t_debug)
(package trace-tef)
(libraries trace trace-tef))
(test
(name t2)
(package ppx_trace)
(modules t2)
(preprocess
(pps ppx_trace))
(libraries trace-tef))
(test
(name t_runtime_events)
(package trace-runtime-events)
(modules t_runtime_events) (modules t_runtime_events)
(enabled_if (preprocess
(>= %{ocaml_version} 5)) (pps ppx_trace))
(libraries trace trace.runtime-events)) (libraries trace trace-runtime-events runtime_events))
(rule
(target t_core.output)
(action
(with-stdout-to
t_core.output
(run %{exe:t_core.exe}))))
(rule
(alias runtest)
(action
(diff t_core.expected t_core.output)))

View file

@ -1,3 +1,5 @@
module Trace = Trace_core
let run () = let run () =
Trace.set_process_name "main"; Trace.set_process_name "main";
Trace.set_thread_name "t1"; Trace.set_thread_name "t1";

View file

@ -1,3 +1,5 @@
module Trace = Trace_core
let ( let@ ) = ( @@ ) let ( let@ ) = ( @@ )
let rec fib x = let rec fib x =

View file

@ -1,3 +1,5 @@
module Trace = Trace_core
let ( let@ ) = ( @@ ) let ( let@ ) = ( @@ )
let main () = let main () =