68 lines
1.9 KiB
OCaml
68 lines
1.9 KiB
OCaml
|
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)
|
||
|
|
;;
|