109 lines
3.3 KiB
Perl
109 lines
3.3 KiB
Perl
|
Testing the source_trees field which is used to entire source_trees
|
||
|
|
|
||
|
|
$ cat >dune-project <<EOF
|
||
|
|
> (lang dune 3.11)
|
||
|
|
> (package
|
||
|
|
> (allow_empty)
|
||
|
|
> (name mypkg))
|
||
|
|
> EOF
|
||
|
|
|
||
|
|
$ test() {
|
||
|
|
> cat >dune <<EOF
|
||
|
|
> (install
|
||
|
|
> (section doc)
|
||
|
|
> (source_trees $1))
|
||
|
|
> EOF
|
||
|
|
> dune build mypkg.install && cat _build/default/mypkg.install
|
||
|
|
> }
|
||
|
|
|
||
|
|
Try to build a source directory that doesn't exist:
|
||
|
|
|
||
|
|
$ test "mydocs"
|
||
|
|
File "dune", line 3, characters 15-21:
|
||
|
|
3 | (source_trees mydocs))
|
||
|
|
^^^^^^
|
||
|
|
Error: This source directory does not exist
|
||
|
|
[1]
|
||
|
|
|
||
|
|
Create the source directory and fill it up with some dummy stuff for the test:
|
||
|
|
|
||
|
|
$ mkdir -p mydocs/foo
|
||
|
|
$ touch mydocs/foo.md mydocs/baz.md mydocs/foo/bar.md
|
||
|
|
|
||
|
|
$ test "mydocs"
|
||
|
|
lib: [
|
||
|
|
"_build/install/default/lib/mypkg/META"
|
||
|
|
"_build/install/default/lib/mypkg/dune-package"
|
||
|
|
]
|
||
|
|
doc: [
|
||
|
|
"_build/install/default/doc/mypkg/mydocs/baz.md" {"mydocs/baz.md"}
|
||
|
|
"_build/install/default/doc/mypkg/mydocs/foo.md" {"mydocs/foo.md"}
|
||
|
|
"_build/install/default/doc/mypkg/mydocs/foo/bar.md" {"mydocs/foo/bar.md"}
|
||
|
|
]
|
||
|
|
|
||
|
|
$ test "(mydocs as yourdocs)"
|
||
|
|
lib: [
|
||
|
|
"_build/install/default/lib/mypkg/META"
|
||
|
|
"_build/install/default/lib/mypkg/dune-package"
|
||
|
|
]
|
||
|
|
doc: [
|
||
|
|
"_build/install/default/doc/mypkg/yourdocs/baz.md" {"yourdocs/baz.md"}
|
||
|
|
"_build/install/default/doc/mypkg/yourdocs/foo.md" {"yourdocs/foo.md"}
|
||
|
|
"_build/install/default/doc/mypkg/yourdocs/foo/bar.md" {"yourdocs/foo/bar.md"}
|
||
|
|
]
|
||
|
|
|
||
|
|
$ test "(mydocs as your/docs)"
|
||
|
|
lib: [
|
||
|
|
"_build/install/default/lib/mypkg/META"
|
||
|
|
"_build/install/default/lib/mypkg/dune-package"
|
||
|
|
]
|
||
|
|
doc: [
|
||
|
|
"_build/install/default/doc/mypkg/your/docs/baz.md" {"your/docs/baz.md"}
|
||
|
|
"_build/install/default/doc/mypkg/your/docs/foo.md" {"your/docs/foo.md"}
|
||
|
|
"_build/install/default/doc/mypkg/your/docs/foo/bar.md" {"your/docs/foo/bar.md"}
|
||
|
|
]
|
||
|
|
|
||
|
|
Install docs directly into docs/<pkg>/:
|
||
|
|
$ test "(mydocs as .)"
|
||
|
|
lib: [
|
||
|
|
"_build/install/default/lib/mypkg/META"
|
||
|
|
"_build/install/default/lib/mypkg/dune-package"
|
||
|
|
]
|
||
|
|
doc: [
|
||
|
|
"_build/install/default/doc/mypkg/baz.md" {"./baz.md"}
|
||
|
|
"_build/install/default/doc/mypkg/foo.md" {"./foo.md"}
|
||
|
|
"_build/install/default/doc/mypkg/foo/bar.md" {"./foo/bar.md"}
|
||
|
|
]
|
||
|
|
|
||
|
|
Install multiple source trees at once:
|
||
|
|
$ mkdir otherdocs
|
||
|
|
$ touch otherdocs/help.txt
|
||
|
|
$ test "mydocs otherdocs"
|
||
|
|
lib: [
|
||
|
|
"_build/install/default/lib/mypkg/META"
|
||
|
|
"_build/install/default/lib/mypkg/dune-package"
|
||
|
|
]
|
||
|
|
doc: [
|
||
|
|
"_build/install/default/doc/mypkg/mydocs/baz.md" {"mydocs/baz.md"}
|
||
|
|
"_build/install/default/doc/mypkg/mydocs/foo.md" {"mydocs/foo.md"}
|
||
|
|
"_build/install/default/doc/mypkg/mydocs/foo/bar.md" {"mydocs/foo/bar.md"}
|
||
|
|
"_build/install/default/doc/mypkg/otherdocs/help.txt" {"otherdocs/help.txt"}
|
||
|
|
]
|
||
|
|
|
||
|
|
Install zero source trees:
|
||
|
|
$ test ""
|
||
|
|
lib: [
|
||
|
|
"_build/install/default/lib/mypkg/META"
|
||
|
|
"_build/install/default/lib/mypkg/dune-package"
|
||
|
|
]
|
||
|
|
|
||
|
|
It is an error for the destination path to start with "..".
|
||
|
|
$ test "(mydocs as ../)"
|
||
|
|
File "dune", line 3, characters 26-29:
|
||
|
|
3 | (source_trees (mydocs as ../)))
|
||
|
|
^^^
|
||
|
|
Error: The destination path ../ begins with .. which is not allowed.
|
||
|
|
Destinations in install stanzas may not begin with .. to prevent a package's
|
||
|
|
installed files from escaping that package's install directories.
|
||
|
|
[1]
|