mirror of
https://github.com/ocaml-tracing/ocaml-trace.git
synced 2026-03-07 18:37:56 -05:00
fix tests
This commit is contained in:
parent
3752d70403
commit
a36f91b350
4 changed files with 26 additions and 21 deletions
41
test/dune
41
test/dune
|
|
@ -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)))
|
|
||||||
|
|
|
||||||
|
|
@ -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";
|
||||||
|
|
|
||||||
|
|
@ -1,3 +1,5 @@
|
||||||
|
module Trace = Trace_core
|
||||||
|
|
||||||
let ( let@ ) = ( @@ )
|
let ( let@ ) = ( @@ )
|
||||||
|
|
||||||
let rec fib x =
|
let rec fib x =
|
||||||
|
|
|
||||||
|
|
@ -1,3 +1,5 @@
|
||||||
|
module Trace = Trace_core
|
||||||
|
|
||||||
let ( let@ ) = ( @@ )
|
let ( let@ ) = ( @@ )
|
||||||
|
|
||||||
let main () =
|
let main () =
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue