(** test runner *)

let () =
  let filter =
    match Array.to_list Sys.argv with
    | [] | [_] -> None
    | _::l -> Some (List.map String.lowercase l)
  in
  exit (if Util.run_all filter then 0 else 1)