unikernel/duniverse/dune_/test/blackbox-tests/test-cases/virtual-libraries/impl-private-modules.t/dune

@@ -0,0 +1,7 @@
+(executable
+ (name test)
+ (libraries foo_impl))
+
+(alias
+ (name default)
+ (action (run ./test.exe)))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/virtual-libraries/impl-private-modules.t/dune-project

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

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/virtual-libraries/impl-private-modules.t/impl/bar.ml

@@ -0,0 +1,3 @@
+let run () =
+  Priv.run ();
+  print_endline "implementing bar"

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/virtual-libraries/impl-private-modules.t/impl/dune

@@ -0,0 +1,4 @@
+(library
+ (name foo_impl)
+ (private_modules priv)
+ (implements foo))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/virtual-libraries/impl-private-modules.t/impl/priv.ml

@@ -0,0 +1 @@
+let run () = print_endline "Private module Baz"

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/virtual-libraries/impl-private-modules.t/impl/priv.mli

@@ -0,0 +1 @@
+val run : unit -> unit

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/virtual-libraries/impl-private-modules.t/run.t

@@ -0,0 +1,25 @@
+They can only introduce private modules:
+  $ dune build --debug-dependency-path
+  Private module Baz
+  implementing bar
+
+Note the aliasing scheme for implementations differs form other libraries. In
+particular, we use a longer prefix for private modules of implementations so
+that they never collide with modules present in the virtual library.
+
+  $ cat _build/default/impl/foo__foo_impl__.ml-gen
+  (* generated by dune *)
+  
+  (** @canonical Foo.Bar *)
+  module Bar = Foo__Bar
+  
+  (** @canonical Foo.Priv *)
+  module Priv = Foo__foo_impl__Priv
+
+Here we look at the raw artifacts for our implementation and verify it matches
+the alias:
+
+  $ ls _build/default/impl/.foo_impl.objs/byte/*.cmi
+  _build/default/impl/.foo_impl.objs/byte/foo__Bar.cmi
+  _build/default/impl/.foo_impl.objs/byte/foo__foo_impl__.cmi
+  _build/default/impl/.foo_impl.objs/byte/foo__foo_impl__Priv.cmi

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/virtual-libraries/impl-private-modules.t/test.ml

@@ -0,0 +1 @@
+let () = Foo.Bar.run ()

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/virtual-libraries/impl-private-modules.t/vlib/bar.mli

@@ -0,0 +1 @@
+val run : unit -> unit

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/virtual-libraries/impl-private-modules.t/vlib/dune

@@ -0,0 +1,3 @@
+(library
+ (name foo)
+ (virtual_modules bar))