From ebfbbb42d25a8cd6ae1602c5db3efbbcab9bb754 Mon Sep 17 00:00:00 2001 From: Hannes Mehnert Date: Sat, 23 Aug 2025 18:27:10 +0200 Subject: [PATCH] mirage-mtime.mock: add a reset : unit -> unit function --- mock/mirage_mtime_set.ml | 1 + 1 file changed, 1 insertion(+) diff --git a/mock/mirage_mtime_set.ml b/mock/mirage_mtime_set.ml index 27f4fbb..6b26bad 100644 --- a/mock/mirage_mtime_set.ml +++ b/mock/mirage_mtime_set.ml @@ -1,3 +1,4 @@ let now = ref 0L let tick () = now := Int64.add !now 1L let tick_for v = now := Int64.add !now v +let reset () = now := 0L