Commit 81dc756a authored by POTTIER Francois's avatar POTTIER Francois

Fix some mistakes in the test suite for [brz].

parent fd089217
......@@ -140,9 +140,9 @@ let () =
register {
basename = "oneastarabstarbc";
regexp = one @@ a @@ star (a ||| b) @@ star (b @@ c) @@ eof;
accepted = [ "ba"; "eeaa"; "edabb"; "eaaaababababa"; "ac"; ] @
[ "abc"; "abcb"; "abcbc"; "aabbcbcbc"; "aaabbbcbcbc"; "ac"; ];
rejected = [ "cc" ];
accepted = [ "ba$"; "eeaa$"; "edabb$"; "eaaaababababa$"; "abc$"; ] @
[ "abbc$"; "abcbc$"; "aabbcbcbc$"; "aaabbbcbcbc$"; "a$"; ];
rejected = [ "cc$" ];
}
(* An automaton that tests whether a word belongs in a dictionary. *)
......
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