fix, use optional sentence

meta-introspector · Dec 19, 2023 · 073a495 · 073a495
1 parent c13ac69
commit 073a495
Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/Makefile b/Makefile
@@ -1,2 +1,4 @@
+duntest:
+	dune test --verbose       --force
 test1:
 	menhir --trace -v --interpret  ./lib/sentenceParser.mly < test/test.gbnf
diff --git a/test/test_gbnf_parser.ml b/test/test_gbnf_parser.ml
@@ -46,7 +46,7 @@ rule ::= lhs S "=" S rhs S terminator
 root ::= ( S rule S ) *
 |codesample} in                 
  let lexbuf = Lexing.from_string inputstr in
- match SentenceParser.entry SentenceLexer.lex lexbuf with
+ match SentenceParser.optional_sentence SentenceLexer.lex lexbuf with
     | exception Parsing.Parse_error ->
        Error.error
          [Positions.cpos lexbuf]