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.

54 lines
2.5 KiB

(*
* 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 qualified_name = QualifiedCppName.of_list qualifiers in
let matcher = QualifiedCppName.Match.of_fuzzy_qual_names fuzzy_qual_names in
QualifiedCppName.Match.match_qualifiers matcher qualified_name
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_no_fuzzy_match1", ["std::foo"], ["std"; "__1"; "foo"], false)
; ("test_std_no_fuzzy_match2", ["std::foo"], ["std"; "goo<int>"; "foo"], false)
; ("test_std_no_fuzzy_match3", ["std::foo"], ["std"; "goo<int>"; "foo<const X&>"], false)
; ("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