unikernel/duniverse/mirage-mtime/lib_test/portable.ml

@@ -0,0 +1,14 @@
+let print_mtime c =
+  Printf.printf "Monotonic clock says: %Ld nanoseconds\n"
+    (Mirage_mtime.elapsed_ns c)
+
+let print_period_mono c =
+  match Mirage_mtime.period_ns c with
+  | Some ns ->
+      Printf.printf "The monotonic clock period is: %Ld nanoseconds\n" ns
+  | None -> Printf.printf "Monotonic clock period unavailable\n"
+
+let () =
+  print_mtime ();
+  print_mtime ();
+  print_period_mono ()