Commit a474a7d4 authored by POTTIER Francois's avatar POTTIER Francois

A slightly more complex test.

parent a40570ac
......@@ -152,7 +152,7 @@ let _ =
(* An automaton that searches for a word that belongs in a dictionary. *)
let k =
one @@ ([ "dead" ] |> map word |> disjunction)
one @@ ([ "dead"; "add" ] |> map word |> disjunction)
let _ =
register {
......
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