mte/unikernel/duniverse/mirage-mtime/mock/mirage_mtime_set.ml

5 lines
122 B
OCaml
Raw Normal View History

2025-11-11 02:07:51 +01:00
let now = ref 0L
let tick () = now := Int64.add !now 1L
let tick_for v = now := Int64.add !now v
let reset () = now := 0L