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