You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
134 lines
3.0 KiB
134 lines
3.0 KiB
8 years ago
|
(*
|
||
|
|
* 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
|