swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2025-11-11 02:07:51 +01:00
parent aa2ff7b2f0
commit 2f3113f55d
11742 changed files with 1223940 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/merlin/implicit-transitive-deps.t/bin/dune Normal file
View file

@ -0,0 +1,3 @@
(executable
(name main)
(libraries lib1))

1
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/merlin/implicit-transitive-deps.t/bin/main.ml Normal file
View file

@ -0,0 +1 @@
type _t = Lib1.t

2
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/merlin/implicit-transitive-deps.t/dune-project Normal file
View file

@ -0,0 +1,2 @@
(lang dune 3.17)
(implicit_transitive_deps false)

38
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/merlin/implicit-transitive-deps.t/run.t Normal file
View file

@ -0,0 +1,38 @@
$ stdlib="$(ocamlc -where)"
$ export BUILD_PATH_PREFIX_MAP="/STDLIB=$stdlib:$BUILD_PATH_PREFIX_MAP"
$ dune build @check
Merlin must be able to locate the definitions of values coming from an
implicit transitive dependency, even when `implicit-transitive-dependency` is
set to `false`. They should be part of the source path returned by the
configuration.
In this test the dependencies are as follow:
main -> lib1 -> lib2 -> stdlib
When using OCaml < 5.2 there is no proper way to provide that information to
Merlin.
$ FILE=$PWD/bin/main.ml
$ printf "(4:File%d:%s)" ${#FILE} $FILE | dune ocaml-merlin |
> sed -E "s/[[:digit:]]+:/\?:/g" | tr '(' '\n' | grep -E ":[BS]H?\?"
?:B?:$TESTCASE_ROOT/_build/default/bin/.main.eobjs/byte)
?:B?:$TESTCASE_ROOT/_build/default/src/lib1/.lib1.objs/byte)
?:S?:$TESTCASE_ROOT/bin)
?:S?:$TESTCASE_ROOT/src/lib1)
$ FILE=$PWD/src/lib1/lib1.ml
$ printf "(4:File%d:%s)" ${#FILE} $FILE | dune ocaml-merlin |
> sed -E "s/[[:digit:]]+:/\?:/g" | tr '(' '\n' | grep -E ":[BS]H?\?"
?:B?:$TESTCASE_ROOT/_build/default/src/lib1/.lib1.objs/byte)
?:B?:$TESTCASE_ROOT/_build/default/src/lib2/.lib2.objs/byte)
?:S?:$TESTCASE_ROOT/src/lib1)
?:S?:$TESTCASE_ROOT/src/lib2)
$ FILE=$PWD/src/lib2/lib2.ml
$ printf "(4:File%d:%s)" ${#FILE} $FILE | dune ocaml-merlin |
> sed -E "s/[[:digit:]]+:/\?:/g" | tr '(' '\n' | grep -E ":[BS]H?\?"
?:B?:$TESTCASE_ROOT/_build/default/src/lib2/.lib2.objs/byte)
?:B?:$TESTCASE_ROOT/_build/default/src/lib_dep/.dep.objs/byte)
?:S?:$TESTCASE_ROOT/src/lib2)
?:S?:$TESTCASE_ROOT/src/lib_dep)

3
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/merlin/implicit-transitive-deps.t/src/lib1/dune Normal file
View file

@ -0,0 +1,3 @@
(library
(name lib1)
(libraries lib2))

1
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/merlin/implicit-transitive-deps.t/src/lib1/lib1.ml Normal file
View file

@ -0,0 +1 @@
include Lib2

3
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/merlin/implicit-transitive-deps.t/src/lib2/dune Normal file
View file

@ -0,0 +1,3 @@
(library
(name lib2)
(libraries dep))

3
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/merlin/implicit-transitive-deps.t/src/lib2/lib2.ml Normal file
View file

@ -0,0 +1,3 @@
type t = bool
type r = Dep.t

1
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/merlin/implicit-transitive-deps.t/src/lib_dep/dep.ml Normal file
View file

@ -0,0 +1 @@
type t = int

2
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/merlin/implicit-transitive-deps.t/src/lib_dep/dune Normal file
View file

@ -0,0 +1,2 @@
(library
(name dep))