Commit c1e559ff authored by POTTIER Francois's avatar POTTIER Francois
Browse files

Updated test and expected output.

parent 5af20d78
...@@ -3,8 +3,8 @@ ...@@ -3,8 +3,8 @@
%% %%
(* Case: token in front. *) (* Case: token in front. *)
main: A B hop { $symbolstartpos, $symbolstartofs } main: A B hop { $symbolstartpos, $symbolstartofs }
(* Case: non-nullable symbol in front. *) (* Case: epsilon symbol in front, followed with non-nullable symbol in front. *)
hop: bar A B { $symbolstartpos } hop: nothing bar A B { $symbolstartpos }
(* Case: nullable symbol in front. *) (* Case: nullable symbol in front. *)
bar: foo? B { $symbolstartpos } bar: foo? B { $symbolstartpos }
foo: C nothing {} foo: C nothing {}
......
...@@ -13,9 +13,9 @@ let _symbolstartofs = _symbolstartpos.Lexing.pos_cnum in ...@@ -13,9 +13,9 @@ let _symbolstartofs = _symbolstartpos.Lexing.pos_cnum in
( _symbolstartpos, _symbolstartofs )} ( _symbolstartpos, _symbolstartofs )}
hop: hop:
| _1 = bar _2 = A _3 = B | _1 = nothing _2 = bar _3 = A _4 = B
{let _symbolstartpos = _startpos__1_ in {let _symbolstartpos = _startpos__2_ in
( _symbolstartpos )} ( _symbolstartpos )}
bar: bar:
| _1 = option_foo_ _2 = B | _1 = option_foo_ _2 = B
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment