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