Reproduce #3336

Signed-off-by: Rudi Grinberg <[email protected]>
ocaml · Oct 9, 2020 · c6c51b4 · c6c51b4
1 parent f967df6
commit c6c51b4
Show file tree

Hide file tree

Showing 10 changed files with 24 additions and 0 deletions.
diff --git a/test/blackbox-tests/test-cases/github3336.t/dune-project b/test/blackbox-tests/test-cases/github3336.t/dune-project
@@ -0,0 +1 @@
+(lang dune 2.4)
diff --git a/test/blackbox-tests/test-cases/github3336.t/executable/dune b/test/blackbox-tests/test-cases/github3336.t/executable/dune
@@ -0,0 +1,3 @@
+(executable
+ (name exec)
+ (preprocess (pps ppx)))
diff --git a/test/blackbox-tests/test-cases/github3336.t/executable/exec.ml b/test/blackbox-tests/test-cases/github3336.t/executable/exec.ml
@@ -0,0 +1 @@
+let () = ()
diff --git a/test/blackbox-tests/test-cases/github3336.t/library/dune b/test/blackbox-tests/test-cases/github3336.t/library/dune
@@ -0,0 +1,4 @@
+(library
+ (name lib)
+ (library_flags (-linkall))
+ (libraries dune-build-info))
diff --git a/test/blackbox-tests/test-cases/github3336.t/library/lib.ml b/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 ())
diff --git a/test/blackbox-tests/test-cases/github3336.t/library/lib.mli b/test/blackbox-tests/test-cases/github3336.t/library/lib.mli
@@ -0,0 +1 @@
+val version : unit -> string option
diff --git a/test/blackbox-tests/test-cases/github3336.t/ppx/dune b/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)))
diff --git a/test/blackbox-tests/test-cases/github3336.t/ppx/ppx.ml b/test/blackbox-tests/test-cases/github3336.t/ppx/ppx.ml
@@ -0,0 +1 @@
+let main () = ()
diff --git a/test/blackbox-tests/test-cases/github3336.t/ppx/ppx.mli b/test/blackbox-tests/test-cases/github3336.t/ppx/ppx.mli
@@ -0,0 +1 @@
+val main : unit -> unit
diff --git a/test/blackbox-tests/test-cases/github3336.t/run.t b/test/blackbox-tests/test-cases/github3336.t/run.t
@@ -0,0 +1,6 @@
+Issue #3336 describes a bug where it's not possible to use dune_build_info from
+ppx binaries.
+
+  $ dune exec ./executable/exec.exe 2>&1 | grep -v "^File" | sed -E 's/from .+/from ../'
+  Error: No implementations provided for the following modules:
+           Build_info__Build_info_data referenced from ..
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1 @@
		let version () = Option.map Build_info.V1.Version.to_string (Build_info.V1.version ())