360 lines
7.7 KiB
Plaintext
360 lines
7.7 KiB
Plaintext
(* -*- tuareg -*- *)
|
|
open Stdune;;
|
|
Path.set_root (Path.External.cwd ());
|
|
Path.set_build_dir (Path.Kind.of_string "_build");
|
|
|
|
Printexc.record_backtrace false;;
|
|
|
|
let r = Path.(relative root);;
|
|
let e = Path.of_filename_relative_to_initial_cwd;;
|
|
|
|
#install_printer Path.pp_debug;;
|
|
|
|
Path.(let p = relative root "foo" in descendant p ~of_:p)
|
|
[%%expect{|
|
|
- : unit = ()
|
|
val r : string -> Path.t = <fun>
|
|
val e : string -> Path.t = <fun>
|
|
- : Path.t option = Some (In_source_tree ".")
|
|
|}]
|
|
|
|
(* different strings but same length *)
|
|
Path.(descendant (relative root "foo") ~of_:(relative root "bar"))
|
|
[%%expect{|
|
|
- : Path.t option = None
|
|
|}]
|
|
|
|
Path.(is_descendant (r "foo") ~of_:(r "foo"))
|
|
[%%expect{|
|
|
- : bool = true
|
|
|}]
|
|
|
|
Path.(is_descendant (r "foo") ~of_:(r "foo/"))
|
|
[%%expect{|
|
|
- : bool = true
|
|
|}]
|
|
|
|
Path.(is_descendant (r "foo/") ~of_:(r "foo"))
|
|
[%%expect{|
|
|
- : bool = true
|
|
|}]
|
|
|
|
Path.(is_descendant (r "foo") ~of_:(r "bar"))
|
|
[%%expect{|
|
|
- : bool = false
|
|
|}]
|
|
|
|
Path.(is_descendant (r "foo") ~of_:(r "bar/"))
|
|
[%%expect{|
|
|
- : bool = false
|
|
|}]
|
|
|
|
Path.(is_descendant (r "foo/") ~of_:(r "bar"))
|
|
[%%expect{|
|
|
- : bool = false
|
|
|}]
|
|
|
|
Path.(is_descendant (r "glob/foo") ~of_:(r "glob"))
|
|
[%%expect{|
|
|
- : bool = true
|
|
|}]
|
|
|
|
Path.(is_descendant (r "glob/foo") ~of_:(r "glob/"))
|
|
[%%expect{|
|
|
- : bool = true
|
|
|}]
|
|
|
|
Path.(is_descendant (e "/foo/bar") ~of_:(e "/foo"))
|
|
[%%expect{|
|
|
- : bool = false
|
|
|}]
|
|
|
|
Path.(is_descendant (e "/foo/bar") ~of_:(e "/foo/bar"))
|
|
[%%expect{|
|
|
- : bool = false
|
|
|}]
|
|
|
|
Path.(is_descendant (e "/foo/bar") ~of_:(e "/foo/bar/"))
|
|
[%%expect{|
|
|
- : bool = false
|
|
|}]
|
|
|
|
Path.(is_descendant (e "/foo/bar/") ~of_:(e "/foo/bar"))
|
|
[%%expect{|
|
|
- : bool = false
|
|
|}]
|
|
|
|
Path.(is_descendant (e "/foo/bar") ~of_:(e "/"))
|
|
[%%expect{|
|
|
- : bool = false
|
|
|}]
|
|
|
|
Path.(descendant (r "foo") ~of_:(r "foo/"))
|
|
[%%expect{|
|
|
- : Path.t option = Some (In_source_tree ".")
|
|
|}]
|
|
|
|
Path.(descendant (r "foo/") ~of_:(r "foo"))
|
|
[%%expect{|
|
|
- : Path.t option = Some (In_source_tree ".")
|
|
|}]
|
|
|
|
Path.(descendant (r "foo/bar") ~of_:(r "foo"))
|
|
[%%expect{|
|
|
- : Path.t option = Some (In_source_tree "bar")
|
|
|}]
|
|
|
|
Path.(descendant Path.root ~of_:(r "foo"))
|
|
[%%expect{|
|
|
- : Path.t option = None
|
|
|}]
|
|
|
|
Path.(descendant Path.root ~of_:Path.root)
|
|
[%%expect{|
|
|
- : Path.t option = Some (In_source_tree ".")
|
|
|}]
|
|
|
|
Path.(descendant (r "foo") ~of_:Path.root)
|
|
[%%expect{|
|
|
- : Path.t option = Some (In_source_tree "foo")
|
|
|}]
|
|
|
|
Path.(descendant (relative build_dir "foo") ~of_:root)
|
|
[%%expect{|
|
|
- : Path.t option = Some (In_source_tree "_build/foo")
|
|
|}]
|
|
|
|
Path.(descendant (relative build_dir "foo") ~of_:(absolute "/foo/bar"))
|
|
[%%expect{|
|
|
File "test/unit-tests/path.mlt", line 127, characters 50-58:
|
|
Error: Unbound value absolute
|
|
|}]
|
|
|
|
Path.(descendant (relative build_dir "foo/bar") ~of_:build_dir)
|
|
[%%expect{|
|
|
- : Path.t option = Some (In_source_tree "foo/bar")
|
|
|}]
|
|
|
|
Path.(descendant (relative build_dir "foo/bar") ~of_:(relative build_dir "foo"))
|
|
[%%expect{|
|
|
- : Path.t option = Some (In_source_tree "bar")
|
|
|}]
|
|
|
|
Path.(descendant (relative build_dir "foo/bar") ~of_:(relative build_dir "foo"))
|
|
[%%expect{|
|
|
- : Path.t option = Some (In_source_tree "bar")
|
|
|}]
|
|
|
|
Path.(descendant (absolute "/foo/bar") ~of_:(absolute "/foo"))
|
|
[%%expect{|
|
|
File "test/unit-tests/path.mlt", line 148, characters 18-26:
|
|
Error: Unbound value absolute
|
|
|}]
|
|
|
|
Path.explode (Path.of_string "a/b/c");
|
|
[%%expect{|
|
|
- : string list option = Some ["a"; "b"; "c"]
|
|
|}]
|
|
|
|
Path.explode (Path.of_string "a/b");
|
|
[%%expect{|
|
|
- : string list option = Some ["a"; "b"]
|
|
|}]
|
|
|
|
Path.explode (Path.of_string "a");
|
|
[%%expect{|
|
|
- : string list option = Some ["a"]
|
|
|}]
|
|
|
|
Path.explode (Path.of_string "");
|
|
[%%expect{|
|
|
- : string list option = Some []
|
|
|}]
|
|
|
|
Path.reach (Path.of_string "/foo/baz") ~from:(Path.of_string "/foo/bar");
|
|
[%%expect{|
|
|
- : string = "/foo/baz"
|
|
|}]
|
|
|
|
Path.reach (Path.of_string "/foo/bar") ~from:(Path.of_string "baz")
|
|
[%%expect{|
|
|
- : string = "/foo/bar"
|
|
|}]
|
|
|
|
Path.reach (Path.of_string "bar/foo") ~from:(Path.of_string "bar/baz/y")
|
|
[%%expect{|
|
|
- : string = "../../foo"
|
|
|}]
|
|
|
|
Path.relative (Path.of_string "relative") "/absolute/path"
|
|
[%%expect{|
|
|
- : Path.t = (External "/absolute/path")
|
|
|}]
|
|
|
|
Path.relative (Path.of_string "/abs1") "/abs2"
|
|
[%%expect{|
|
|
- : Path.t = (External "/abs2")
|
|
|}]
|
|
|
|
Path.relative (Path.of_string "/abs1") ""
|
|
[%%expect{|
|
|
- : Path.t = (External "/abs1")
|
|
|}]
|
|
|
|
Path.relative Path.root "/absolute/path"
|
|
[%%expect{|
|
|
- : Path.t = (External "/absolute/path")
|
|
|}]
|
|
|
|
e "/absolute/path"
|
|
[%%expect{|
|
|
- : Path.t = (External "/absolute/path")
|
|
|}]
|
|
|
|
Path.is_managed (e "relative/path")
|
|
[%%expect{|
|
|
- : bool = false
|
|
|}]
|
|
|
|
Path.insert_after_build_dir_exn Path.root "foobar"
|
|
[%%expect{|
|
|
Exception:
|
|
Code_error
|
|
(List
|
|
[Atom (A "Path.insert_after_build_dir_exn");
|
|
List [Atom (A "path"); List [Atom (A "In_source_tree"); Atom (A ".")]];
|
|
List [Atom (A "insert"); Atom (A "foobar")]]).
|
|
|}]
|
|
|
|
Path.insert_after_build_dir_exn Path.build_dir "foobar"
|
|
[%%expect{|
|
|
- : Path.t = (In_build_dir "foobar")
|
|
|}]
|
|
|
|
Path.insert_after_build_dir_exn (Path.relative Path.build_dir "qux") "foobar"
|
|
[%%expect{|
|
|
- : Path.t = (In_build_dir "foobar/qux")
|
|
|}]
|
|
|
|
Path.append Path.build_dir (Path.relative Path.root "foo")
|
|
[%%expect{|
|
|
- : Path.t = (In_build_dir "foo")
|
|
|}]
|
|
|
|
Path.append Path.build_dir (Path.relative Path.build_dir "foo")
|
|
[%%expect{|
|
|
Exception:
|
|
Code_error
|
|
(List
|
|
[Quoted_string
|
|
"Path.append called with directory that's not in the source tree";
|
|
List [Atom (A "a"); List [Atom (A "In_build_dir"); Atom (A ".")]];
|
|
List [Atom (A "b"); List [Atom (A "In_build_dir"); Atom (A "foo")]]]).
|
|
|}]
|
|
|
|
Path.append Path.root (Path.relative Path.build_dir "foo")
|
|
[%%expect{|
|
|
Exception:
|
|
Code_error
|
|
(List
|
|
[Quoted_string
|
|
"Path.append called with directory that's not in the source tree";
|
|
List [Atom (A "a"); List [Atom (A "In_source_tree"); Atom (A ".")]];
|
|
List [Atom (A "b"); List [Atom (A "In_build_dir"); Atom (A "foo")]]]).
|
|
|}]
|
|
|
|
Path.append Path.root (Path.relative Path.root "foo")
|
|
[%%expect{|
|
|
- : Path.t = (In_source_tree "foo")
|
|
|}]
|
|
|
|
Path.append (Path.of_string "/root") (Path.relative Path.root "foo")
|
|
[%%expect{|
|
|
- : Path.t = (External "/root/foo")
|
|
|}]
|
|
|
|
Path.append (Path.of_string "/root") (Path.relative Path.build_dir "foo")
|
|
[%%expect{|
|
|
Exception:
|
|
Code_error
|
|
(List
|
|
[Quoted_string
|
|
"Path.append called with directory that's not in the source tree";
|
|
List [Atom (A "a"); List [Atom (A "External"); Atom (A "/root")]];
|
|
List [Atom (A "b"); List [Atom (A "In_build_dir"); Atom (A "foo")]]]).
|
|
|}]
|
|
|
|
Path.rm_rf (Path.of_string "/does/not/exist/foo/bar/baz")
|
|
[%%expect{|
|
|
Exception:
|
|
Code_error
|
|
(List
|
|
[Quoted_string "Path.rm_rf called on external dir";
|
|
List
|
|
[Atom (A "t");
|
|
List [Atom (A "External"); Atom (A "/does/not/exist/foo/bar/baz")]]]).
|
|
|}]
|
|
|
|
Path.drop_build_context (Path.relative Path.build_dir "foo/bar")
|
|
[%%expect{|
|
|
- : Path.t option = Some (In_source_tree "bar")
|
|
|}]
|
|
|
|
Path.drop_build_context (Path.of_string "foo/bar")
|
|
[%%expect{|
|
|
- : Path.t option = None
|
|
|}]
|
|
|
|
Path.drop_build_context (e "/foo/bar")
|
|
[%%expect{|
|
|
- : Path.t option = None
|
|
|}]
|
|
|
|
Path.drop_build_context Path.build_dir
|
|
[%%expect{|
|
|
- : Path.t option = None
|
|
|}]
|
|
|
|
Path.is_in_build_dir Path.build_dir
|
|
[%%expect{|
|
|
- : bool = true
|
|
|}]
|
|
|
|
Path.is_strict_descendant_of_build_dir Path.build_dir
|
|
[%%expect{|
|
|
- : bool = false
|
|
|}]
|
|
|
|
Path.reach_for_running Path.build_dir ~from:Path.root
|
|
[%%expect{|
|
|
- : string = "./_build"
|
|
|}]
|
|
|
|
Path.(reach_for_running (relative build_dir "foo/baz")
|
|
~from:(relative build_dir "foo/bar/baz"))
|
|
[%%expect{|
|
|
- : string = "../../baz"
|
|
|}]
|
|
|
|
Path.(reach_for_running (e "/fake/path")
|
|
~from:(relative build_dir "foo/bar/baz"))
|
|
[%%expect{|
|
|
- : string = "/fake/path"
|
|
|}]
|
|
|
|
Path.(reach_for_running (relative root "foo") ~from:(Path.relative root "foo"))
|
|
[%%expect{|
|
|
- : string = "./."
|
|
|}]
|
|
|
|
Path.relative Path.root "_build"
|
|
[%%expect{|
|
|
- : Path.t = (In_build_dir ".")
|
|
|}]
|
|
|
|
(* This is not right, but kind of annoying to fix :/ *)
|
|
Path.relative (r "foo") "../_build"
|
|
[%%expect{|
|
|
- : Path.t = (In_build_dir ".")
|
|
|}]
|