Add comment with code for enabling tracing in tests

mirage · Jul 7, 2015 · d3d5557 · d3d5557
1 parent c8e6dcc
commit d3d5557
Showing 1 changed file with 4 additions and 0 deletions.
diff --git 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