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

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

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

@@ -0,0 +1,5 @@
+Test the menhir extension version 2.0
+
+  $ 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-2.0.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-2.0.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-2.0.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-2.0.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-2.0.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-2.0.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-2.0.t/src/tokens.mly

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