(*
 * Copyright (c) 2017 - present Facebook, Inc.
 * All rights reserved.
 *
 * This source code is licensed under the BSD style license found in the
 * LICENSE file in the root directory of this source tree. An additional grant
 * of patent rights can be found in the PATENTS file in the same directory.
 *)

open! IStd
open OUnit2

let test_fuzzy_match =
  let create_test fuzzy_qual_names qualifiers expected_match _ =
    let output =
      let matcher = QualifiedCppName.quals_matcher_of_fuzzy_qual_names fuzzy_qual_names in
      QualifiedCppName.match_qualifiers matcher qualifiers in
    assert_equal ~cmp:Bool.equal expected_match output in
  [
    (
      "test_simple_match1",
      ["foo::bar::baz"; "foo::baz"; "goo::goo"],
      ["foo"; "baz"],
      true
    );
    (
      "test_simple_match2",
      ["foo::bar::baz"; "foo::baz"; "goo::goo"],
      ["foo"; "bar"; "baz"],
      true
    );
    (
      "test_simple_match3",
      ["foo::bar::baz"; "foo::baz"; "goo::goo"],
      ["goo"; "goo"],
      true
    );
    (
      "test_no_simple_match1",
      ["foo::bar::baz"; "foo::baz"; "goo::goo"],
      ["foo"; "bar"],
      false
    );
    (
      "test_no_simple_match2",
      ["foo::bar::baz"; "foo::baz"; "goo::goo"],
      ["goo"; "foo"],
      false
    );
    (
      "test_no_simple_match3",
      ["foo::bar::baz"; "foo::baz"; "goo::goo"],
      ["moo"],
      false
    );
    (
      "test_no_simple_match4",
      ["foo::bar::baz"; "foo::baz"; "goo::goo"],
      ["foo"; "bar"; "baz"; "bad"],
      false
    );
    (
      "test_no_simple_match5",
      ["foo::bar::baz"; "foo::baz"; "goo::goo"],
      ["foo"; "bad"; "bar"; "baz"],
      false
    );
    (
      "test_template_match",
      ["foo::bar::baz"],
      ["foo"; "bar<goo::moo<int,std::string>,const X&>"; "baz<int>"],
      true
    );
    (
      "test_std_direct_match",
      ["std::foo"],
      ["std"; "foo"],
      true
    );
    (
      "test_std_direct_no_match1",
      ["std::foo"],
      ["std"; "goo"],
      false
    );
    (
      "test_std_direct_no_match2",
      ["std::foo"],
      ["std"; "foo"; "bad"],
      false
    );
    (
      "test_std_direct_no_match3",
      ["std::foo"],
      ["stdBAD"; "foo"],
      false
    );
    (
      "test_std_fuzzy_match1",
      ["std::foo"],
      ["std"; "__1"; "foo"],
      true
    );
    (
      "test_std_fuzzy_match2",
      ["std::foo"],
      ["std"; "goo<int>"; "foo"],
      true
    );
    (
      "test_std_fuzzy_match3",
      ["std::foo"],
      ["std"; "goo<int>"; "foo<const X&>"],
      true
    );
    (
      "test_std_fuzzy_no_match1",
      ["std::foo"],
      ["std"; "__1"; "__2"; "foo"],
      false
    );
    (
      "test_std_fuzzy_no_match2",
      ["std::foo"],
      ["std"; "__1"; "foo"; "bad"],
      false
    );
  ]
  |> List.map
    ~f:(fun (name, fuzzy_qual_names, qualifiers, expected_output) ->
        name >:: create_test fuzzy_qual_names qualifiers expected_output)

let tests = "qualified_cpp_name_fuzzy_match" >::: test_fuzzy_match