unikernel/duniverse/dune_/bench/micro/path_bench.ml

@@ -0,0 +1,67 @@
+module Path = Stdune.Path
+module Fpath = Stdune.Fpath
+open Base
+module Filename = Stdlib.Filename
+
+let () = Path.Build.set_build_dir (In_source_dir Path.Source.(relative root "_build"))
+let root = "."
+let short_path = "a/b/c"
+let long_path = List.init 20 ~f:(fun _ -> "foo-bar-baz") |> String.concat ~sep:"/"
+
+let%bench_fun
+    ("is_root"
+     [@params path = [ "root", "."; "short path", short_path; "long path", long_path ]])
+  =
+  fun () -> ignore (Fpath.is_root path)
+;;
+
+let%bench_fun
+    ("reach"
+     [@params
+       t
+       = [ "from root long path", (long_path, root)
+         ; "from root short path", (short_path, root)
+         ; "reach root from short path", (root, short_path)
+         ; "reach root from long path", (root, long_path)
+         ; ( "reach long path from similar long path"
+           , (Filename.concat long_path "a", Filename.concat long_path "b") )
+         ; ( "reach short path from similar short path"
+           , (Filename.concat short_path "a", Filename.concat short_path "b") )
+         ]])
+  =
+  let t, from = t in
+  let t = Path.of_string t in
+  let from = Path.of_string from in
+  fun () -> ignore (Path.reach t ~from)
+;;
+
+let%bench_fun
+    ("Path.Local.relative"
+     [@params
+       t
+       = [ "left root", (".", long_path)
+         ; "right root", (long_path, ".")
+         ; "short paths", (short_path, short_path)
+         ; "long paths", (long_path, long_path)
+         ]])
+  =
+  let x, y = t in
+  let x = Path.Local.of_string x in
+  fun () -> ignore (Path.Local.relative x y)
+;;
+
+let%bench_fun
+    ("Path.Local.append"
+     [@params
+       t
+       = [ "left root", (".", long_path)
+         ; "right root", (long_path, ".")
+         ; "short paths", (short_path, short_path)
+         ; "long paths", (long_path, long_path)
+         ]])
+  =
+  let x, y = t in
+  let x = Path.Local.of_string x in
+  let y = Path.Local.of_string y in
+  fun () -> ignore (Path.Local.append x y)
+;;