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

@@ -0,0 +1,8 @@
+(ocamllex lexer1)
+
+(menhir
+ (modules test_menhir1)
+ (flags :standard --cmly))
+
+(executables
+ (names test))

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

@@ -0,0 +1,2 @@
+(lang dune 1.1)
+(using menhir 1.0)

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/menhir/cmly.t/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/cmly.t/run.t

@@ -0,0 +1,3 @@
+  $ dune build ./test.exe --debug-dependency-path
+  $ ls _build/default/test.exe
+  _build/default/test.exe

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

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

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/menhir/cmly.t/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 }