v0.14-preview.122.21+09

Author: xclerc

example/example.ml

@@ -44,4 +44,7 @@ let%test_module _ = (module struct
   let%test _ = (group ~break:(fun _ _ -> false) mis) = single_letters
   let%test _ = (groupi ~break:(fun i _ _ -> i mod 3 = 0) mis) = every_three
 
+
+  let%test "slow, but takes no cpu time" = ignore (Unix.nanosleep 0.25 : float); true
+
 end)

ppx_inline_test.opam

@@ -12,8 +12,9 @@ build: [
 depends: [
   "ocaml" {>= "4.04.2"}
   "base"
-  "dune"   {>= "2.0.0"}
-  "ppxlib" {>= "0.11.0"}
+  "time_now"
+  "dune"     {>= "2.0.0"}
+  "ppxlib"   {>= "0.11.0"}
 ]
 synopsis: "Syntax extension for writing in-line tests in ocaml code"
 description: "

runtime-lib/dune

@@ -1,2 +1,2 @@
 (library (name ppx_inline_test_lib) (public_name ppx_inline_test.runtime-lib)
- (libraries base inline_test_config) (preprocess no_preprocessing))
+ (libraries base inline_test_config time_now) (preprocess no_preprocessing))

runtime-lib/runtime.ml

@@ -337,16 +337,16 @@ let testing =
      then `Testing `Am_child_of_test_runner
      else `Not_testing)
 
+let wall_time_clock_ns () =
+  Time_now.nanoseconds_since_unix_epoch ()
+
+
 let time_without_resetting_random_seeds f =
-  let before_sec = Sys.time () in
-  let res =
-    try f ()
-    with e ->
-      time_sec := Sys.time () -. before_sec;
-      raise e
-  in
-  time_sec := Sys.time () -. before_sec;
-  res
+  let before_ns = wall_time_clock_ns () in
+  Base.Exn.protect ~finally:(fun[@inline] () ->
+    time_sec := Base.Int63.(wall_time_clock_ns () - before_ns |> to_float)  /. 1e9)
+    ~f
+
 
 let saved_caml_random_state = lazy (Caml.Random.State.make [| 100; 200; 300 |])
 let saved_base_random_state = lazy (Base.Random.State.make [| 111; 222; 333 |])