78 lines
1.8 KiB
Perl
78 lines
1.8 KiB
Perl
|
Test that dune can handle the case where a dependency's source contains a
|
||
|
|
symlink with a missing destination.
|
||
|
|
|
||
|
|
$ . ./helpers.sh
|
||
|
|
|
||
|
|
Define a package foo containing a broken symlink.
|
||
|
|
$ mkdir foo
|
||
|
|
$ touch foo/a.txt
|
||
|
|
$ ln -s non_existent foo/b.txt
|
||
|
|
|
||
|
|
Define a package bar containing a broken symlink.
|
||
|
|
$ mkdir bar
|
||
|
|
$ touch bar/a.txt
|
||
|
|
$ ln -s non_existent bar/b.txt
|
||
|
|
$ tar czf bar.tar.gz bar
|
||
|
|
|
||
|
|
Make a directory to contain a test project and change to it.
|
||
|
|
$ mkdir project
|
||
|
|
$ cd project
|
||
|
|
|
||
|
|
Create a lockdir for the project.
|
||
|
|
$ mkdir dune.lock
|
||
|
|
$ cat > dune.lock/lock.dune <<EOF
|
||
|
|
> (lang package 0.1)
|
||
|
|
> EOF
|
||
|
|
|
||
|
|
The package "foo" exercises copying package sources from a local directory.
|
||
|
|
$ cat > dune.lock/foo.pkg <<EOF
|
||
|
|
> (version 0.0.1)
|
||
|
|
> (source
|
||
|
|
> (fetch
|
||
|
|
> (url
|
||
|
|
> file:///$PWD/../foo)))
|
||
|
|
> EOF
|
||
|
|
|
||
|
|
The package "bar" exercises extracting a source archive from a local file.
|
||
|
|
$ cat > dune.lock/bar.pkg <<EOF
|
||
|
|
> (version 0.0.1)
|
||
|
|
> (source
|
||
|
|
> (fetch
|
||
|
|
> (url
|
||
|
|
> file:///$PWD/../bar.tar.gz)))
|
||
|
|
> EOF
|
||
|
|
|
||
|
|
The package "bar" exercises extracting a source archive from a downloaded file.
|
||
|
|
$ cat > dune.lock/baz.pkg <<EOF
|
||
|
|
> (version 0.0.1)
|
||
|
|
> (source
|
||
|
|
> (fetch
|
||
|
|
> (url http://0.0.0.0:1)
|
||
|
|
> (checksum md5=$(md5sum $PWD/../bar.tar.gz | cut -f1 -d' '))))
|
||
|
|
> EOF
|
||
|
|
|
||
|
|
Set up a fake web server to serve the source archive for the package "bar".
|
||
|
|
$ echo $PWD/../bar.tar.gz >> fake-curls
|
||
|
|
|
||
|
|
Make a project file that depends on all the packages.
|
||
|
|
$ cat > dune-project <<EOF
|
||
|
|
> (lang dune 3.17)
|
||
|
|
> (package
|
||
|
|
> (name x)
|
||
|
|
> (allow_empty)
|
||
|
|
> (depends foo bar baz))
|
||
|
|
> EOF
|
||
|
|
|
||
|
|
Build the packages.
|
||
|
|
$ build_pkg foo
|
||
|
|
$ build_pkg bar
|
||
|
|
$ build_pkg baz
|
||
|
|
|
||
|
|
All files were copied except for the broken symlinks:
|
||
|
|
$ ls _build/_private/default/.pkg/foo/source
|
||
|
|
a.txt
|
||
|
|
$ ls _build/_private/default/.pkg/bar/source
|
||
|
|
a.txt
|
||
|
|
$ ls _build/_private/default/.pkg/baz/source
|
||
|
|
a.txt
|