Merge pull request #616 from talex5/bench-stat

Add File.stat benchmark

bench/bench_fstat.ml

@@ -0,0 +1,26 @@
+open Eio.Std
+
+let ( / ) = Eio.Path.( / )
+
+let n_stat = 100000
+
+let run_fiber file =
+  for _ = 1 to n_stat do
+    let info = (Eio.File.stat file).kind in
+    assert (info = `Regular_file)
+  done
+
+let run env =
+  Eio.Path.with_open_out ~create:(`If_missing 0o600) (env#cwd / "test-stat") @@ fun file ->
+  [1; 10] |> List.map (fun par ->
+      let t0 = Unix.gettimeofday () in
+      Switch.run (fun sw ->
+          for _  = 1 to par do
+            Fiber.fork ~sw (fun () -> run_fiber file)
+          done
+        );
+      let t1 = Unix.gettimeofday () in
+      let stat_per_s = float (n_stat * par) /. (t1 -. t0) in
+      let label = Printf.sprintf "n=%d fibers=%d" n_stat par in
+      Metric.create label (`Float stat_per_s) "stat/s" "Call fstat on an open file"
+    )

bench/main.ml

@@ -9,6 +9,7 @@ let benchmarks = [
   "Stream", Bench_stream.run;
   "HTTP", Bench_http.run;
   "Eio_unix.Fd", Bench_fd.run;
+  "File.stat", Bench_fstat.run;
 ]
 
 let usage_error () =