unikernel/duniverse/dune_/test/blackbox-tests/test-cases/hidden-deps-supported.t/bar.ml

@@ -0,0 +1,2 @@
+let x = 5
+let y = Foo.v

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/hidden-deps-supported.t/dune

@@ -0,0 +1,18 @@
+(library
+ (name foo)
+ (modules foo))
+
+(library
+ (name bar)
+ (modules bar)
+ (libraries foo))
+
+(executable
+ (name run)
+ (modules run)
+ (libraries bar))
+
+ (executable
+ (name runf)
+ (modules runf)
+ (libraries bar))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/hidden-deps-supported.t/foo.ml

@@ -0,0 +1,2 @@
+let v = 9
+let w = 4

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/hidden-deps-supported.t/run.ml

@@ -0,0 +1 @@
+let _ = Bar.y

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/hidden-deps-supported.t/run.t

@@ -0,0 +1,55 @@
+This test is guarded by ocaml version >= 5.2, so it should include foo with -H when
+implicit_transitive_deps is set to false.
+
+  $ getincludes () {
+  >   dune build --verbose ./run.exe 2>&1 | grep run.ml | grep -Eo '\-[IH] [a-z/.]+' | sort
+  > }
+
+  $ cat >dune-project <<EOF
+  > (lang dune 3.17)
+  > (implicit_transitive_deps true)
+  > EOF
+
+  $ getincludes
+  -I .bar.objs/byte
+  -I .bar.objs/byte
+  -I .bar.objs/native
+  -I .foo.objs/byte
+  -I .foo.objs/byte
+  -I .foo.objs/native
+  -I .run.eobjs/byte
+  -I .run.eobjs/byte
+  -I .run.eobjs/native
+
+In the following two tests we use "false-if-hidden-includes-supported" for
+testing purposes, but since this test is guarded by OCaml version >= 5.2, this
+should be equivalent to "false".
+
+  $ cat >dune-project <<EOF
+  > (lang dune 3.20)
+  > (implicit_transitive_deps false-if-hidden-includes-supported)
+  > EOF
+
+  $ getincludes
+  -H .foo.objs/byte
+  -H .foo.objs/byte
+  -H .foo.objs/native
+  -I .bar.objs/byte
+  -I .bar.objs/byte
+  -I .bar.objs/native
+  -I .run.eobjs/byte
+  -I .run.eobjs/byte
+  -I .run.eobjs/native
+
+Test transitive deps can not be directly accessed, both for compiler versions supporting -H or not:
+
+  $ cat >dune-project <<EOF
+  > (lang dune 3.20)
+  > (implicit_transitive_deps false-if-hidden-includes-supported)
+  > EOF
+
+  $ dune build ./runf.exe 2>&1 | grep -v ocamlc
+  File "runf.ml", line 1, characters 16-21:
+  1 | let a = Bar.y + Foo.v
+                      ^^^^^
+  Error: Unbound module Foo

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/hidden-deps-supported.t/runf.ml

@@ -0,0 +1 @@
+let a = Bar.y + Foo.v