CP-311148: calibrate VM memory overhead measurements [WiP]

Signed-off-by: Edwin Török <edwin.torok@citrix.com>

Author: edwintorok

ocaml/quicktest/dune

@@ -9,10 +9,14 @@
     ezxenstore
     ezxenstore.watch
     fmt
+    fmt.tty
     forkexec
     http_lib
     mtime
     mtime.clock.os
+    cli_progress_bar
+    quicktest_trace
+    quicktest_trace_api
     quicktest_trace_rpc
     pam
     qcheck-alcotest

ocaml/quicktest/quicktest.ml

@@ -19,8 +19,25 @@ let qchecks =
   |> List.map @@ fun (name, test) ->
      (name, List.map QCheck_alcotest.(to_alcotest ~long:true) test)
 
+let setup_tty () =
+  let style_renderer =
+    if !Quicktest_args.use_colour then
+      (* use default style, auto-detect color support *)
+      None
+    else
+      (* never use color *)
+      Some `None
+  in
+  Fmt_tty.setup_std_outputs ?style_renderer ()
+
 let () =
   Quicktest_args.parse () ;
+  setup_tty () ;
+  let open Quicktest_trace in
+  let disk = DiskBackend.create_backend ~filename:"trace" () in
+  TeeBackend.with_setup (module ConsoleBackend.Backend) disk () @@ fun () ->
+  TeeBackend.setup_tick () ;
+  Sys.catch_break true ;
   Qt_filter.wrap (fun () ->
       let suite =
         [
@@ -36,6 +53,10 @@ let () =
         ; ("Quicktest_async_calls", Quicktest_async_calls.tests ())
         ; ("Quicktest_vm_import_export", Quicktest_vm_import_export.tests ())
         ; ("Quicktest_vm_lifecycle", Quicktest_vm_lifecycle.tests ())
+        ; ( "Quicktest_vm_calibrate_cleanup"
+          , Quicktest_vm_calibrate.tests_cleanup ()
+          )
+        ; ("Quicktest_vm_calibrate", Quicktest_vm_calibrate.tests ())
         ; ("Quicktest_vm_snapshot", Quicktest_vm_snapshot.tests ())
         ; ( "Quicktest_vdi_ops_data_integrity"
           , Quicktest_vdi_ops_data_integrity.tests ()