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/symlinks.t/realroot/dune-project Normal file
View file

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

2
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/merlin/symlinks.t/realroot/realsrc/dune Normal file
View file

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

1
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/merlin/symlinks.t/realroot/realsrc/foo.ml Normal file
View file

@ -0,0 +1 @@
print_endline "bar"

34
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/merlin/symlinks.t/run.t Normal file
View file

@ -0,0 +1,34 @@
Because INSIDE_DUNE is set for sandboxing Dune does not perform root discovery
in tests. That is why for each call to Dune we specify manually the `root`
directory in these tests.
$ ln -s realroot linkroot
$ cd linkroot
$ dune build
Absolute path with symlinks won't match with Dune's root path in which symlinks
are resolved:
$ dune ocaml merlin dump-config "$PWD/realsrc" --root="."
Path $TESTCASE_ROOT/linkroot/realsrc is not in dune workspace ($TESTCASE_ROOT/realroot).
Absolute path with resolved symlinks will match with Dune's root path:
$ dune ocaml merlin \
> dump-config "$(pwd | sed 's/linkroot/realroot/')/realsrc" \
> --root="." | head -n 1
Foo: _build/default/realsrc/foo
Dune ocaml-merlin also accepts paths relative to the current directory
$ dune ocaml merlin dump-config "realsrc" --root="." | head -n 1
Foo: _build/default/realsrc/foo
$ cd realsrc
$ ocamlc_where="$(ocamlc -where)"
$ export BUILD_PATH_PREFIX_MAP="/OCAMLC_WHERE=$ocamlc_where:$BUILD_PATH_PREFIX_MAP"
$ dune ocaml merlin dump-config "." --root=".." | head -n 2
Foo: _build/default/realsrc/foo
((INDEX $TESTCASE_ROOT/realroot/_build/default/realsrc/.foo.eobjs/cctx.ocaml-index) (STDLIB /OCAMLC_WHERE) (SOURCE_ROOT $TESTCASE_ROOT/realroot) (EXCLUDE_QUERY_DIR) (B $TESTCASE_ROOT/realroot/_build/default/realsrc/.foo.eobjs/byte) (S $TESTCASE_ROOT/realroot/realsrc) (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))