Skip to content

Commit

Permalink
test: reproduce #8297
Browse files Browse the repository at this point in the history
Signed-off-by: Rudi Grinberg <me@rgrinberg.com>

<!-- ps-id: f85cd2ad-1da0-44b1-b5c4-aa7f220e9446 -->
  • Loading branch information
rgrinberg committed Jan 7, 2024
1 parent 4ff71c2 commit ea3db82
Showing 1 changed file with 161 additions and 0 deletions.
161 changes: 161 additions & 0 deletions test/blackbox-tests/test-cases/merlin/include-subdirs-qualified.t
Original file line number Diff line number Diff line change
@@ -0,0 +1,161 @@
$ cat >dune-project <<EOF
> (lang dune 3.12)
> EOF
$ cat >dune <<EOF
> (include_subdirs qualified)
> (library
> (name foo))
> EOF
$ touch main.ml
$ mkdir utils
$ touch utils/calc.ml
$ mkdir groupintf
$ touch groupintf/groupintf.ml
$ touch groupintf/calc.ml
$ opam_prefix="$(ocamlc -where)"
$ export BUILD_PATH_PREFIX_MAP="/OPAM_PREFIX=$opam_prefix:$BUILD_PATH_PREFIX_MAP"
$ dune build .merlin-conf/lib-foo
$ dune ocaml merlin dump-config .
Foo: _build/default/foo
((STDLIB /OPAM_PREFIX)
(EXCLUDE_QUERY_DIR)
(B
$TESTCASE_ROOT/_build/default/.foo.objs/byte)
(S
$TESTCASE_ROOT)
(S
$TESTCASE_ROOT/groupintf)
(S
$TESTCASE_ROOT/utils)
(FLG
(-w
@1..3@5..28@30..39@43@46..47@49..57@61..62@67@69-40
-strict-sequence
-strict-formats
-short-paths
-keep-locs
-g)))
Foo__Groupintf__: _build/default/foo__Groupintf__
((STDLIB /OPAM_PREFIX)
(EXCLUDE_QUERY_DIR)
(B
$TESTCASE_ROOT/_build/default/.foo.objs/byte)
(S
$TESTCASE_ROOT)
(S
$TESTCASE_ROOT/groupintf)
(S
$TESTCASE_ROOT/utils)
(FLG
(-w
@1..3@5..28@30..39@43@46..47@49..57@61..62@67@69-40
-strict-sequence
-strict-formats
-short-paths
-keep-locs
-g)))
Utils: _build/default/foo__Utils
((STDLIB /OPAM_PREFIX)
(EXCLUDE_QUERY_DIR)
(B
$TESTCASE_ROOT/_build/default/.foo.objs/byte)
(S
$TESTCASE_ROOT)
(S
$TESTCASE_ROOT/groupintf)
(S
$TESTCASE_ROOT/utils)
(FLG
(-w
@1..3@5..28@30..39@43@46..47@49..57@61..62@67@69-40
-strict-sequence
-strict-formats
-short-paths
-keep-locs
-g)))
Calc: _build/default/groupintf/calc
((STDLIB /OPAM_PREFIX)
(EXCLUDE_QUERY_DIR)
(B
$TESTCASE_ROOT/_build/default/.foo.objs/byte)
(S
$TESTCASE_ROOT)
(S
$TESTCASE_ROOT/groupintf)
(S
$TESTCASE_ROOT/utils)
(FLG (-open Foo__Groupintf__ -open Foo))
(FLG
(-w
@1..3@5..28@30..39@43@46..47@49..57@61..62@67@69-40
-strict-sequence
-strict-formats
-short-paths
-keep-locs
-g)))
Groupintf: _build/default/groupintf/groupintf
((STDLIB /OPAM_PREFIX)
(EXCLUDE_QUERY_DIR)
(B
$TESTCASE_ROOT/_build/default/.foo.objs/byte)
(S
$TESTCASE_ROOT)
(S
$TESTCASE_ROOT/groupintf)
(S
$TESTCASE_ROOT/utils)
(FLG (-open Foo__Groupintf__ -open Foo))
(FLG
(-w
@1..3@5..28@30..39@43@46..47@49..57@61..62@67@69-40
-strict-sequence
-strict-formats
-short-paths
-keep-locs
-g)))
Main: _build/default/main
((STDLIB /OPAM_PREFIX)
(EXCLUDE_QUERY_DIR)
(B
$TESTCASE_ROOT/_build/default/.foo.objs/byte)
(S
$TESTCASE_ROOT)
(S
$TESTCASE_ROOT/groupintf)
(S
$TESTCASE_ROOT/utils)
(FLG (-open Foo))
(FLG
(-w
@1..3@5..28@30..39@43@46..47@49..57@61..62@67@69-40
-strict-sequence
-strict-formats
-short-paths
-keep-locs
-g)))
Calc: _build/default/utils/calc
((STDLIB /OPAM_PREFIX)
(EXCLUDE_QUERY_DIR)
(B
$TESTCASE_ROOT/_build/default/.foo.objs/byte)
(S
$TESTCASE_ROOT)
(S
$TESTCASE_ROOT/groupintf)
(S
$TESTCASE_ROOT/utils)
(FLG (-open Utils -open Foo))
(FLG
(-w
@1..3@5..28@30..39@43@46..47@49..57@61..62@67@69-40
-strict-sequence
-strict-formats
-short-paths
-keep-locs
-g)))
$ dune ocaml merlin dump-config utils

0 comments on commit ea3db82

Please sign in to comment.