(* TEST
 include runtime_events;
*)
open Runtime_events

let () =
  start();

  let t1 = Timestamp.get_current() |> Timestamp.to_int64 in
  for _i  = 0 to 1_000_000 do
    ignore (Sys.opaque_identity _i : int)
  done;
  let t2 = Timestamp.get_current() |> Timestamp.to_int64 in
  assert (Int64.succ t2 > Int64.succ t1)