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/unit-names-merlin-gh1233.t/dune Normal file
View file

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

1
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/merlin/unit-names-merlin-gh1233.t/dune-project Normal file
View file

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

0
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/merlin/unit-names-merlin-gh1233.t/dune-workspace Normal file
View file

1
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/merlin/unit-names-merlin-gh1233.t/foo.ml Normal file
View file

@ -0,0 +1 @@
print_int Foo.Bar.bar_foo

1
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/merlin/unit-names-merlin-gh1233.t/foo/bar.ml Normal file
View file

@ -0,0 +1 @@
let bar_foo = 42

2
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/merlin/unit-names-merlin-gh1233.t/foo/dune Normal file
View file

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

80
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/merlin/unit-names-merlin-gh1233.t/run.t Normal file
View file

@ -0,0 +1,80 @@
$ ocamlc_where="$(ocamlc -where)"
$ export BUILD_PATH_PREFIX_MAP="/OCAMLC_WHERE=$ocamlc_where:$BUILD_PATH_PREFIX_MAP"
$ dune exec ./foo.exe
42
$ dune ocaml merlin dump-config $PWD
Foo: _build/default/foo
((INDEX $TESTCASE_ROOT/_build/default/.foo.eobjs/cctx.ocaml-index)
(INDEX $TESTCASE_ROOT/_build/default/foo/.foo.objs/cctx.ocaml-index)
(STDLIB /OCAMLC_WHERE)
(SOURCE_ROOT $TESTCASE_ROOT)
(EXCLUDE_QUERY_DIR)
(B $TESTCASE_ROOT/_build/default/.foo.eobjs/byte)
(B $TESTCASE_ROOT/_build/default/foo/.foo.objs/byte)
(S $TESTCASE_ROOT)
(S $TESTCASE_ROOT/foo)
(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__Foo))
Foo: _build/default/foo.ml
((INDEX $TESTCASE_ROOT/_build/default/.foo.eobjs/cctx.ocaml-index)
(INDEX $TESTCASE_ROOT/_build/default/foo/.foo.objs/cctx.ocaml-index)
(STDLIB /OCAMLC_WHERE)
(SOURCE_ROOT $TESTCASE_ROOT)
(EXCLUDE_QUERY_DIR)
(B $TESTCASE_ROOT/_build/default/.foo.eobjs/byte)
(B $TESTCASE_ROOT/_build/default/foo/.foo.objs/byte)
(S $TESTCASE_ROOT)
(S $TESTCASE_ROOT/foo)
(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__Foo))
$ dune ocaml merlin dump-config $PWD/foo
Bar: _build/default/foo/bar
((INDEX $TESTCASE_ROOT/_build/default/.foo.eobjs/cctx.ocaml-index)
(INDEX $TESTCASE_ROOT/_build/default/foo/.foo.objs/cctx.ocaml-index)
(STDLIB /OCAMLC_WHERE)
(SOURCE_ROOT $TESTCASE_ROOT)
(EXCLUDE_QUERY_DIR)
(B $TESTCASE_ROOT/_build/default/foo/.foo.objs/byte)
(S $TESTCASE_ROOT/foo)
(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))
(FLG (-open Foo))
(UNIT_NAME foo__Bar))
Bar: _build/default/foo/bar.ml
((INDEX $TESTCASE_ROOT/_build/default/.foo.eobjs/cctx.ocaml-index)
(INDEX $TESTCASE_ROOT/_build/default/foo/.foo.objs/cctx.ocaml-index)
(STDLIB /OCAMLC_WHERE)
(SOURCE_ROOT $TESTCASE_ROOT)
(EXCLUDE_QUERY_DIR)
(B $TESTCASE_ROOT/_build/default/foo/.foo.objs/byte)
(S $TESTCASE_ROOT/foo)
(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))
(FLG (-open Foo))
(UNIT_NAME foo__Bar))
Foo: _build/default/foo/foo
((INDEX $TESTCASE_ROOT/_build/default/.foo.eobjs/cctx.ocaml-index)
(INDEX $TESTCASE_ROOT/_build/default/foo/.foo.objs/cctx.ocaml-index)
(STDLIB /OCAMLC_WHERE)
(SOURCE_ROOT $TESTCASE_ROOT)
(EXCLUDE_QUERY_DIR)
(B $TESTCASE_ROOT/_build/default/foo/.foo.objs/byte)
(S $TESTCASE_ROOT/foo)
(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/foo.ml-gen
((INDEX $TESTCASE_ROOT/_build/default/.foo.eobjs/cctx.ocaml-index)
(INDEX $TESTCASE_ROOT/_build/default/foo/.foo.objs/cctx.ocaml-index)
(STDLIB /OCAMLC_WHERE)
(SOURCE_ROOT $TESTCASE_ROOT)
(EXCLUDE_QUERY_DIR)
(B $TESTCASE_ROOT/_build/default/foo/.foo.objs/byte)
(S $TESTCASE_ROOT/foo)
(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))
FIXME : module Foo is not unbound
This test is disabled because it depends on root detection and is not reproducible.
$ ocamlmerlin single errors -filename foo.ml < foo.ml | jq ".value.message"
"Unbound module Foo"