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

@@ -0,0 +1,19 @@
+Build and run a source file that requires a menhir parser.
+
+  $ cat >dune-project <<EOF
+  > (lang dune 1.0)
+  > (using menhir 1.0)
+  > EOF
+
+  $ dune build ./src/test.exe --debug-dependency-path
+  $ ls _build/default/src/test.exe
+  _build/default/src/test.exe
+
+  $ cat >dune-project <<EOF
+  > (lang dune 2.0)
+  > (using menhir 2.0)
+  > EOF
+
+  $ dune build ./src/test.exe --debug-dependency-path
+  $ ls _build/default/src/test.exe
+  _build/default/src/test.exe

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

@@ -0,0 +1,13 @@
+(ocamllex lexer1 lexer2)
+
+(menhir
+ (modules test_menhir1)
+ (flags :standard --unused-tokens))
+
+(menhir
+ (merge_into test_base)
+ (flags --explain)
+ (modules tokens parser))
+
+(executables
+ (names test))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/menhir/general.t/src/lexer1.mll

@@ -0,0 +1,7 @@
+{
+open Test_menhir1
+}
+
+rule lex = parse
+  | 'c' { TOKEN 'c' }
+  | eof { EOF }

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/menhir/general.t/src/lexer2.mll

@@ -0,0 +1,7 @@
+{
+open Test_base
+}
+
+rule lex = parse
+  | 'c' { TOKEN 'c' }
+  | eof { EOF }

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

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

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/menhir/general.t/src/test.ml

@@ -0,0 +1,8 @@
+
+let s = "foo bar baz"
+
+let () =
+  let lex1 = Lexing.from_string s in
+  let lex2 = Lexing.from_string s in
+  ignore (Test_menhir1.main Lexer1.lex lex1);
+  ignore (Test_base.main Lexer2.lex lex2)

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/menhir/general.t/src/test_menhir1.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/general.t/src/tokens.mly

@@ -0,0 +1,5 @@
+%token <char> TOKEN
+%token EOF
+
+%%
+