From d3d5557be40265a5f44707c8c5e9bc8a0b1a6cb7 Mon Sep 17 00:00:00 2001 From: Magnus Skjegstad Date: Tue, 7 Jul 2015 09:22:09 +0100 Subject: [PATCH] Add comment with code for enabling tracing in tests --- lib_test/test.ml | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lib_test/test.ml b/lib_test/test.ml index c53ed1a94..7b6fc810c 100644 --- a/lib_test/test.ml +++ b/lib_test/test.ml @@ -30,6 +30,10 @@ let () = Log.enable log; Log.set_stats log false ); + (* Uncomment to enable tracing *) + (*let buffer = MProf_unix.mmap_buffer ~size:1000000 "trace.ctf" in + let trace_config = MProf.Trace.Control.make buffer MProf_unix.timestamper in + MProf.Trace.Control.start trace_config;*) let suite = List.map (fun (n, s) -> n, List.map (fun (d, s, f) -> d, s, run f) s ) suite