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

1
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/merlin/merlin-from-subdir.t/411/test.ml Normal file
View file

@ -0,0 +1 @@
print_endline Foo.v

10
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/merlin/merlin-from-subdir.t/dune Normal file
View file

@ -0,0 +1,10 @@
(library
(name foo)
(modules foo))
(executable
(name test)
(modules test)
(libraries foo))
(copy_files# 411/test.ml)

1
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/merlin/merlin-from-subdir.t/dune-project Normal file
View file

@ -0,0 +1 @@
(lang dune 2.8)

1
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/merlin/merlin-from-subdir.t/foo.ml Normal file
View file

@ -0,0 +1 @@
let v = "bar"

68
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/merlin/merlin-from-subdir.t/run.t Normal file
View file

@ -0,0 +1,68 @@
$ ocamlc_where="$(ocamlc -where)"
$ export BUILD_PATH_PREFIX_MAP="/OCAMLC_WHERE=$ocamlc_where:$BUILD_PATH_PREFIX_MAP"
We build the project
$ dune exec ./test.exe
bar
Verify that merlin configuration was generated...
$ dune ocaml merlin dump-config $PWD
Test: _build/default/test
((INDEX $TESTCASE_ROOT/_build/default/.test.eobjs/cctx.ocaml-index)
(INDEX $TESTCASE_ROOT/_build/default/.foo.objs/cctx.ocaml-index)
(STDLIB /OCAMLC_WHERE)
(SOURCE_ROOT $TESTCASE_ROOT)
(EXCLUDE_QUERY_DIR)
(B $TESTCASE_ROOT/_build/default/.foo.objs/byte)
(B $TESTCASE_ROOT/_build/default/.test.eobjs/byte)
(S $TESTCASE_ROOT)
(S $TESTCASE_ROOT/411)
(FLG (-w @1..3@5..28@30..39@43@46..47@49..57@61..62-40 -strict-sequence -strict-formats -short-paths -keep-locs -g))
(UNIT_NAME dune__exe__Test))
Test: _build/default/test.ml
((INDEX $TESTCASE_ROOT/_build/default/.test.eobjs/cctx.ocaml-index)
(INDEX $TESTCASE_ROOT/_build/default/.foo.objs/cctx.ocaml-index)
(STDLIB /OCAMLC_WHERE)
(SOURCE_ROOT $TESTCASE_ROOT)
(EXCLUDE_QUERY_DIR)
(B $TESTCASE_ROOT/_build/default/.foo.objs/byte)
(B $TESTCASE_ROOT/_build/default/.test.eobjs/byte)
(S $TESTCASE_ROOT)
(S $TESTCASE_ROOT/411)
(FLG (-w @1..3@5..28@30..39@43@46..47@49..57@61..62-40 -strict-sequence -strict-formats -short-paths -keep-locs -g))
(UNIT_NAME dune__exe__Test))
Foo: _build/default/foo
((INDEX $TESTCASE_ROOT/_build/default/.test.eobjs/cctx.ocaml-index)
(INDEX $TESTCASE_ROOT/_build/default/.foo.objs/cctx.ocaml-index)
(STDLIB /OCAMLC_WHERE)
(SOURCE_ROOT $TESTCASE_ROOT)
(EXCLUDE_QUERY_DIR)
(B $TESTCASE_ROOT/_build/default/.foo.objs/byte)
(S $TESTCASE_ROOT)
(S $TESTCASE_ROOT/411)
(FLG (-w @1..3@5..28@30..39@43@46..47@49..57@61..62-40 -strict-sequence -strict-formats -short-paths -keep-locs -g))
(UNIT_NAME foo))
Foo: _build/default/foo.ml
((INDEX $TESTCASE_ROOT/_build/default/.test.eobjs/cctx.ocaml-index)
(INDEX $TESTCASE_ROOT/_build/default/.foo.objs/cctx.ocaml-index)
(STDLIB /OCAMLC_WHERE)
(SOURCE_ROOT $TESTCASE_ROOT)
(EXCLUDE_QUERY_DIR)
(B $TESTCASE_ROOT/_build/default/.foo.objs/byte)
(S $TESTCASE_ROOT)
(S $TESTCASE_ROOT/411)
(FLG (-w @1..3@5..28@30..39@43@46..47@49..57@61..62-40 -strict-sequence -strict-formats -short-paths -keep-locs -g))
(UNIT_NAME foo))
...but not in the sub-folder whose content was copied
$ dune ocaml merlin dump-config $PWD/411
Now we check that both querying from the root and the subfolder works
$ FILE=$PWD/foo.ml
$ FILE411=$PWD/411/test.ml
$ printf "(4:File%d:%s)" ${#FILE} $FILE | dune ocaml-merlin | sed -E "s/[[:digit:]]+:/\?:/g"
((?:INDEX?:$TESTCASE_ROOT/_build/default/.test.eobjs/cctx.ocaml-index)(?:INDEX?:$TESTCASE_ROOT/_build/default/.foo.objs/cctx.ocaml-index)(?:STDLIB?:/OCAMLC_WHERE)(?:SOURCE_ROOT?:$TESTCASE_ROOT)(?:EXCLUDE_QUERY_DIR)(?:B?:$TESTCASE_ROOT/_build/default/.foo.objs/byte)(?:S?:$TESTCASE_ROOT)(?:S?:$TESTCASE_ROOT/411)(?:FLG(?:-w?:@1..3@5..28@30..39@43@46..47@49..57@61..62-?:-strict-sequence?:-strict-formats?:-short-paths?:-keep-locs?:-g))(?:UNIT_NAME?:foo))
$ printf "(4:File%d:%s)" ${#FILE411} $FILE411 | dune ocaml-merlin | sed -E "s/[[:digit:]]+:/\?:/g"
((?:INDEX?:$TESTCASE_ROOT/_build/default/.test.eobjs/cctx.ocaml-index)(?:INDEX?:$TESTCASE_ROOT/_build/default/.foo.objs/cctx.ocaml-index)(?:STDLIB?:/OCAMLC_WHERE)(?:SOURCE_ROOT?:$TESTCASE_ROOT)(?:EXCLUDE_QUERY_DIR)(?:B?:$TESTCASE_ROOT/_build/default/.foo.objs/byte)(?:B?:$TESTCASE_ROOT/_build/default/.test.eobjs/byte)(?:S?:$TESTCASE_ROOT)(?:S?:$TESTCASE_ROOT/411)(?:FLG(?:-w?:@1..3@5..28@30..39@43@46..47@49..57@61..62-?:-strict-sequence?:-strict-formats?:-short-paths?:-keep-locs?:-g))(?:UNIT_NAME?:dune__exe__Test))