unikernel/duniverse/dune_/test/blackbox-tests/test-cases/virtual-libraries/preprocess.t/dune

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

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/virtual-libraries/preprocess.t/dune-project

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

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

@@ -0,0 +1,3 @@
+(library
+ (name impl)
+ (implements bar))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/virtual-libraries/preprocess.t/impl/foo.ml

@@ -0,0 +1,2 @@
+let foo () =
+  print_endline "foo"

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/virtual-libraries/preprocess.t/pp/dune

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

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/virtual-libraries/preprocess.t/pp/mypp.ml

@@ -0,0 +1,6 @@
+let () =
+  let file = Sys.argv.(1) in
+  let ic = open_in file in
+  let len = in_channel_length ic in
+  let contents = really_input_string ic len in
+  print_string contents

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/virtual-libraries/preprocess.t/run.t

@@ -0,0 +1,3 @@
+Virtual libraries and preprocessed source
+  $ dune build
+  foo

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/virtual-libraries/preprocess.t/test.ml

@@ -0,0 +1 @@
+Bar.Foo.foo ();

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/virtual-libraries/preprocess.t/vlib/dune

@@ -0,0 +1,4 @@
+(library
+ (name bar)
+ (virtual_modules foo)
+ (preprocess (action (run %{project_root}/pp/mypp.exe %{input-file}))))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/virtual-libraries/preprocess.t/vlib/foo.mli

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