This commit is contained in:
parent
aa2ff7b2f0
commit
2f3113f55d
11742 changed files with 1223940 additions and 0 deletions
278
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/lib.t
Normal file
278
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/lib.t
Normal file
|
|
@ -0,0 +1,278 @@
|
|||
----------------------------------------------------------------------------------
|
||||
Testsuite for the %{lib...} and %{lib-private...} variable.
|
||||
|
||||
$ cat >sdune <<'EOF'
|
||||
> #!/usr/bin/env bash
|
||||
> DUNE_SANDBOX=symlink dune "$@"
|
||||
> EOF
|
||||
$ chmod +x sdune
|
||||
|
||||
----------------------------------------------------------------------------------
|
||||
* Find a public library using the %{lib:...} variable
|
||||
|
||||
$ echo "(lang dune 2.0)" > dune-project
|
||||
$ mkdir -p src
|
||||
$ cat >src/dune <<EOF
|
||||
> (library
|
||||
> (name private_lib)
|
||||
> (public_name public_lib)
|
||||
> (modules a))
|
||||
> EOF
|
||||
|
||||
$ cat >dune <<EOF
|
||||
> (rule
|
||||
> (alias find-a)
|
||||
> (action (echo "%{lib:public_lib:a.ml}")))
|
||||
> EOF
|
||||
|
||||
$ cat >src/a.ml <<EOF
|
||||
> let a = "A"
|
||||
> EOF
|
||||
$ cat >src/a.mli <<EOF
|
||||
> val a : string
|
||||
> EOF
|
||||
|
||||
$ touch public_lib.opam
|
||||
$ ./sdune build @find-a
|
||||
../install/default/lib/public_lib/a.ml
|
||||
|
||||
----------------------------------------------------------------------------------
|
||||
* Error when finding a public library by its private name using the %{lib:...} variable
|
||||
|
||||
$ cat >src/dune <<EOF
|
||||
> (library
|
||||
> (name private_lib)
|
||||
> (public_name public_lib)
|
||||
> (modules a))
|
||||
> EOF
|
||||
|
||||
$ cat >dune <<EOF
|
||||
> (rule
|
||||
> (alias find-a)
|
||||
> (action (echo "%{lib:private_lib:a.ml}")))
|
||||
> EOF
|
||||
|
||||
$ ./sdune build @find-a
|
||||
File "dune", line 3, characters 16-39:
|
||||
3 | (action (echo "%{lib:private_lib:a.ml}")))
|
||||
^^^^^^^^^^^^^^^^^^^^^^^
|
||||
Error: The library "private_lib" is not public. The variable "lib" expands to
|
||||
the file's installation path which is not defined for private libraries.
|
||||
[1]
|
||||
|
||||
----------------------------------------------------------------------------------
|
||||
* Find a public library by its private name using the %{lib-private:...} variable
|
||||
* Error when using Dune language < 2.1
|
||||
|
||||
$ cat >src/dune <<EOF
|
||||
> (library
|
||||
> (name private_lib)
|
||||
> (public_name public_lib)
|
||||
> (modules a))
|
||||
> EOF
|
||||
|
||||
$ cat >dune <<EOF
|
||||
> (rule
|
||||
> (alias find-a)
|
||||
> (action (echo "%{lib-private:private_lib:a.ml}")))
|
||||
> EOF
|
||||
|
||||
$ ./sdune build @find-a
|
||||
File "dune", line 3, characters 16-47:
|
||||
3 | (action (echo "%{lib-private:private_lib:a.ml}")))
|
||||
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
|
||||
Error: %{lib-private:..} is only available since version 2.1 of the dune
|
||||
language. Please update your dune-project file to have (lang dune 2.1).
|
||||
[1]
|
||||
|
||||
----------------------------------------------------------------------------------
|
||||
* Find a public library by its private name using the %{lib-private:...} variable
|
||||
* Success when using Dune language 2.1
|
||||
|
||||
$ echo "(lang dune 2.1)" > dune-project
|
||||
|
||||
$ ./sdune build @find-a
|
||||
src/a.ml
|
||||
|
||||
----------------------------------------------------------------------------------
|
||||
* Find a private library using the %{lib-private:...} variable
|
||||
|
||||
$ cat >src/dune <<EOF
|
||||
> (library
|
||||
> (name private_lib)
|
||||
> (modules a))
|
||||
> EOF
|
||||
|
||||
$ ./sdune clean
|
||||
$ ./sdune build @find-a
|
||||
src/a.ml
|
||||
|
||||
----------------------------------------------------------------------------------
|
||||
* The %{lib-private:...} variable works with public library names too
|
||||
|
||||
$ cat >src/dune <<EOF
|
||||
> (library
|
||||
> (name private_lib)
|
||||
> (public_name public_lib)
|
||||
> (modules a))
|
||||
> EOF
|
||||
|
||||
$ cat >dune <<EOF
|
||||
> (rule
|
||||
> (alias find-a)
|
||||
> (action (echo "%{lib-private:public_lib:a.ml}")))
|
||||
> EOF
|
||||
|
||||
$ ./sdune clean
|
||||
$ ./sdune build @find-a
|
||||
src/a.ml
|
||||
|
||||
----------------------------------------------------------------------------------
|
||||
* The %{lib-private:...} variable does not work with external libraries
|
||||
|
||||
$ mkdir -p external
|
||||
$ cat >external/dune-project <<EOF
|
||||
> (lang dune 2.1)
|
||||
> (name external_library)
|
||||
> EOF
|
||||
$ cat >external/dune <<EOF
|
||||
> (library
|
||||
> (name extlib)
|
||||
> (public_name external_library))
|
||||
> EOF
|
||||
|
||||
$ touch external/external_library.opam
|
||||
$ ( cd external && ../sdune build @install \
|
||||
> && ../sdune install --prefix install --display short | dune_cmd sanitize)
|
||||
Installing install/lib/external_library/META
|
||||
Installing install/lib/external_library/dune-package
|
||||
Installing install/lib/external_library/extlib.a
|
||||
Installing install/lib/external_library/extlib.cma
|
||||
Installing install/lib/external_library/extlib.cmi
|
||||
Installing install/lib/external_library/extlib.cmt
|
||||
Installing install/lib/external_library/extlib.cmx
|
||||
Installing install/lib/external_library/extlib.cmxa
|
||||
Installing install/lib/external_library/extlib.ml
|
||||
Installing install/lib/external_library/opam
|
||||
Installing install/lib/external_library/extlib.cmxs
|
||||
|
||||
$ cat >src/dune <<EOF
|
||||
> (library
|
||||
> (name private_lib)
|
||||
> (public_name public_lib)
|
||||
> (modules a))
|
||||
> (rule
|
||||
> (alias find-a)
|
||||
> (action (echo "%{lib-private:external_library:opam}")))
|
||||
> EOF
|
||||
|
||||
$ touch src/public_lib.opam
|
||||
$ echo "(lang dune 2.1)" > src/dune-project
|
||||
$ echo "(name test-lib)" >> src/dune-project
|
||||
|
||||
$ export OCAMLPATH=$PWD/external/install/lib; ./sdune build @find-a --root=src
|
||||
Entering directory 'src'
|
||||
File "dune", line 7, characters 16-52:
|
||||
7 | (action (echo "%{lib-private:external_library:opam}")))
|
||||
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
|
||||
Error: The variable "lib-private" can only refer to libraries within the same
|
||||
project. The current project's name is "test-lib", but the reference is to an
|
||||
external library.
|
||||
Leaving directory 'src'
|
||||
[1]
|
||||
|
||||
----------------------------------------------------------------------------------
|
||||
* The %{lib-private:...} is only allowed within the same project
|
||||
|
||||
$ mkdir -p another
|
||||
$ cat >another/dune <<EOF
|
||||
> (library
|
||||
> (name anotherlib)
|
||||
> (public_name another_library))
|
||||
> EOF
|
||||
|
||||
$ cat >src/dune <<EOF
|
||||
> (library
|
||||
> (name private_lib)
|
||||
> (public_name public_lib)
|
||||
> (modules a))
|
||||
> (rule
|
||||
> (alias find-a)
|
||||
> (action (echo "%{lib-private:another_library:file}")))
|
||||
> EOF
|
||||
|
||||
$ touch another/another_library.opam
|
||||
$ rm public_lib.opam
|
||||
$ rm dune
|
||||
$ echo "(lang dune 2.1)" > another/dune-project
|
||||
$ echo "(name another-lib)" >> another/dune-project
|
||||
|
||||
$ ./sdune build @find-a
|
||||
File "src/dune", line 7, characters 16-51:
|
||||
7 | (action (echo "%{lib-private:another_library:file}")))
|
||||
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
|
||||
Error: The variable "lib-private" can only refer to libraries within the same
|
||||
project. The current project's name is "test-lib", but the reference is to
|
||||
"another-lib".
|
||||
[1]
|
||||
|
||||
----------------------------------------------------------------------------------
|
||||
* lib-private with --only-packages
|
||||
In this test, two packages are defined in the same project, but we may not
|
||||
access the artifacts through %{lib-private}
|
||||
|
||||
$ mkdir lib-private-only-packages
|
||||
$ cd lib-private-only-packages
|
||||
$ mkdir lib1 lib2
|
||||
$ cat >dune-project <<EOF
|
||||
> (lang dune 2.8)
|
||||
> (name lib-private-test)
|
||||
> (package (name public_lib1))
|
||||
> (package (name public_lib2))
|
||||
> EOF
|
||||
$ cat >lib1/dune <<EOF
|
||||
> (library
|
||||
> (name lib1)
|
||||
> (public_name public_lib1))
|
||||
> EOF
|
||||
$ touch lib1/lib1.ml
|
||||
$ cat >lib2/dune <<EOF
|
||||
> (library
|
||||
> (name lib2)
|
||||
> (public_name public_lib2))
|
||||
> (rule
|
||||
> (with-stdout-to lib2.ml (echo "let _ = {|%{lib-private:lib1:lib1.ml}|}")))
|
||||
> EOF
|
||||
|
||||
The build works in development:
|
||||
$ dune build @install
|
||||
|
||||
But will fail when we release it, as it will need to run with -p:
|
||||
$ dune build @install --only-packages public_lib2
|
||||
File "lib2/dune", line 5, characters 42-69:
|
||||
5 | (with-stdout-to lib2.ml (echo "let _ = {|%{lib-private:lib1:lib1.ml}|}")))
|
||||
^^^^^^^^^^^^^^^^^^^^^^^^^^^
|
||||
Error: Library "lib1" not found.
|
||||
-> required by %{lib-private:lib1:lib1.ml} at lib2/dune:5
|
||||
-> required by _build/default/lib2/lib2.ml
|
||||
-> required by _build/install/default/lib/public_lib2/lib2.ml
|
||||
-> required by _build/default/public_lib2.install
|
||||
-> required by alias install
|
||||
[1]
|
||||
|
||||
----------------------------------------------------------------------------------
|
||||
* Error when the wrong number of arguments are passed to %{lib-private:...}
|
||||
|
||||
$ cat >dune <<EOF
|
||||
> (rule
|
||||
> (alias find-a)
|
||||
> (action (echo "%{lib-private:a.ml}")))
|
||||
> EOF
|
||||
|
||||
$ dune build @find-a
|
||||
File "dune", line 3, characters 30-34:
|
||||
3 | (action (echo "%{lib-private:a.ml}")))
|
||||
^^^^
|
||||
Incorrect arguments for macro lib-private.
|
||||
Error: Expected two arguments separated by ':' but no ':' found.
|
||||
[1]
|
||||
Loading…
Add table
Add a link
Reference in a new issue