unikernel/duniverse/dune_/test/blackbox-tests/test-cases/menhir/menhir-include-subdirs.t/bar/baz.mly

@@ -0,0 +1,7 @@
+%token EOF
+
+%start<unit> unit
+%%
+
+unit:
+| EOF { () }

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/menhir/menhir-include-subdirs.t/bar/dune

@@ -0,0 +1,2 @@
+(menhir
+ (modules baz))

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

@@ -0,0 +1,3 @@
+(lang dune 3.7)
+(using menhir 2.1)
+(name foo)

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/menhir/menhir-include-subdirs.t/foo.ml

@@ -0,0 +1,2 @@
+let () =
+  Bar.Baz.unit (fun _ -> Bar.Baz.EOF) (Lexing.from_string "")

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

@@ -0,0 +1,19 @@
+The use of (include_subdirs qualified) should be compatible with the use of
+Menhir in other places than the root of the file hierarchy.
+
+  $ test() {
+  > cat >dune <<EOF
+  > (include_subdirs $1)
+  > (executable (name foo))
+  > EOF
+  > dune build foo.exe
+  > }
+
+  $ test unqualified
+  File "foo.ml", line 2, characters 2-14:
+  2 |   Bar.Baz.unit (fun _ -> Bar.Baz.EOF) (Lexing.from_string "")
+        ^^^^^^^^^^^^
+  Error: Unbound module Bar
+  Hint: Did you mean Baz?
+  [1]
+  $ test qualified