mte/unikernel/duniverse/mirage-mtime/mock/mirage_mtime_set.ml
2025-11-11 02:07:51 +01:00

4 lines
122 B
OCaml

let now = ref 0L
let tick () = now := Int64.add !now 1L
let tick_for v = now := Int64.add !now v
let reset () = now := 0L