(**
 * Copyright (c) 2013-present, Facebook, Inc.
 *
 * This source code is licensed under the MIT license found in the
 * LICENSE file in the root directory of this source tree.
 *)

let parse contents =
  let parse_options = Some { Parser_env.default_parse_options with
    Parser_env.esproposal_class_instance_fields = true;
    Parser_env.esproposal_class_static_fields = true;
    Parser_env.esproposal_export_star_as = true;
  } in
  let ast, _errors = Parser_flow.program ~parse_options contents in
  ast

let mk_loc (line1, column1) (line2, column2) = Loc.{
  source = None;
  start = { line = line1; column = column1; offset = 0; };
  _end = { line = line2; column = column2; offset = 0; };
}

let print_list printer list =
  String.concat ", " @@ Core_list.map ~f:printer list

let eq printer v1 v2 =
  printer v1 = printer v2
