unikernel/duniverse/dune_/test/blackbox-tests/test-cases/menhir/promote.t/dune

@@ -0,0 +1,6 @@
+(menhir
+ (modules parser)
+ (mode promote))
+
+(library
+ (name test))

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

@@ -0,0 +1,2 @@
+(lang dune 1.7)
+(using menhir 2.0)

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/menhir/promote.t/parser.mly

@@ -0,0 +1,10 @@
+%token <char> TOKEN
+%token EOF
+
+%start <char list> main
+
+%%
+
+main:
+| c = TOKEN EOF { [c] }
+| c = TOKEN xs = main  { c :: xs }

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

@@ -0,0 +1,16 @@
+Reproduction case for #1781, only the .ml and .mli should be promoted:
+
+  $ dune build @all
+  $ ls -1 _build/default | sort | grep mock
+  parser__mock.ml.mock
+  parser__mock.mli.inferred
+  $ ls -1 | grep mock
+  [1]
+Check what is being generated exactly:
+  $ ls -1
+  _build
+  dune
+  dune-project
+  parser.ml
+  parser.mli
+  parser.mly