Unit_matcherval sgrep_unittest :
ast_fuzzy_of_string:(string -> Ast_fuzzy.trees) ->
OUnit.testval spatch_unittest :
ast_fuzzy_of_string:(string -> Spatch_fuzzy.pattern) ->
parse_file:(string -> Ast_fuzzy.trees * 'tok list) ->
kind_and_info_of_tok:('tok -> Parse_info.token_kind * Parse_info.info) ->
OUnit.test