From c6c51b406d96158268bbd41b1a0c6a6a55710369 Mon Sep 17 00:00:00 2001 From: Rudi Grinberg Date: Fri, 2 Oct 2020 13:51:21 -0700 Subject: [PATCH] Reproduce #3336 Signed-off-by: Rudi Grinberg --- test/blackbox-tests/test-cases/github3336.t/dune-project | 1 + test/blackbox-tests/test-cases/github3336.t/executable/dune | 3 +++ .../test-cases/github3336.t/executable/exec.ml | 1 + test/blackbox-tests/test-cases/github3336.t/library/dune | 4 ++++ test/blackbox-tests/test-cases/github3336.t/library/lib.ml | 1 + test/blackbox-tests/test-cases/github3336.t/library/lib.mli | 1 + test/blackbox-tests/test-cases/github3336.t/ppx/dune | 5 +++++ test/blackbox-tests/test-cases/github3336.t/ppx/ppx.ml | 1 + test/blackbox-tests/test-cases/github3336.t/ppx/ppx.mli | 1 + test/blackbox-tests/test-cases/github3336.t/run.t | 6 ++++++ 10 files changed, 24 insertions(+) create mode 100644 test/blackbox-tests/test-cases/github3336.t/dune-project create mode 100644 test/blackbox-tests/test-cases/github3336.t/executable/dune create mode 100644 test/blackbox-tests/test-cases/github3336.t/executable/exec.ml create mode 100644 test/blackbox-tests/test-cases/github3336.t/library/dune create mode 100644 test/blackbox-tests/test-cases/github3336.t/library/lib.ml create mode 100644 test/blackbox-tests/test-cases/github3336.t/library/lib.mli create mode 100644 test/blackbox-tests/test-cases/github3336.t/ppx/dune create mode 100644 test/blackbox-tests/test-cases/github3336.t/ppx/ppx.ml create mode 100644 test/blackbox-tests/test-cases/github3336.t/ppx/ppx.mli create mode 100644 test/blackbox-tests/test-cases/github3336.t/run.t diff --git a/test/blackbox-tests/test-cases/github3336.t/dune-project b/test/blackbox-tests/test-cases/github3336.t/dune-project new file mode 100644 index 000000000000..4c6dd5ae95b8 --- /dev/null +++ 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 new file mode 100644 index 000000000000..fa79c1f2eef7 --- /dev/null +++ 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 new file mode 100644 index 000000000000..306831a004a3 --- /dev/null +++ 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 new file mode 100644 index 000000000000..711d3ff6adcc --- /dev/null +++ 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 new file mode 100644 index 000000000000..26f1fa8ea784 --- /dev/null +++ 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 new file mode 100644 index 000000000000..ae3a490857b2 --- /dev/null +++ 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 new file mode 100644 index 000000000000..1703d9421e79 --- /dev/null +++ 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 new file mode 100644 index 000000000000..d904bff5a4ba --- /dev/null +++ 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 new file mode 100644 index 000000000000..86f37aa4f56c --- /dev/null +++ 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 new file mode 100644 index 000000000000..676b5b8a0e9a --- /dev/null +++ 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 ..