unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github3336.t/dune-project

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

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github3336.t/executable/dune

@@ -0,0 +1,3 @@
+(executable
+ (name exec)
+ (preprocess (pps ppx)))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github3336.t/executable/exec.ml

@@ -0,0 +1 @@
+let () = ()

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github3336.t/library/dune

@@ -0,0 +1,4 @@
+(library
+ (name lib)
+ (library_flags (-linkall))
+ (libraries dune-build-info))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github3336.t/library/lib.ml

@@ -0,0 +1 @@
+let version () = Option.map Build_info.V1.Version.to_string (Build_info.V1.version ())

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github3336.t/library/lib.mli

@@ -0,0 +1 @@
+val version : unit -> string option

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github3336.t/ppx/dune

@@ -0,0 +1,5 @@
+(library
+ (name ppx)
+ (kind ppx_rewriter)
+ (libraries lib)
+ (ppx.driver (main Ppx.main)))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github3336.t/ppx/ppx.ml

@@ -0,0 +1 @@
+let main () = ()

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github3336.t/ppx/ppx.mli

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

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github3336.t/run.t

@@ -0,0 +1,10 @@
+Issue #3336 describes a bug where it's not possible to use dune_build_info from
+ppx binaries.
+
+Here we demonstrate that such a ppx .exe is built successfully.
+
+  $ dune exec ./executable/exec.exe >/dev/null 2>&1 --verbose
+  [1]
+
+  $ find _build | grep \.exe$
+  _build/default/.ppx/0747fa92c6bc2f7f4818823e4f8871ab/ppx.exe