infer_clone/infer/src/unit/DifferentialTestsUtils.ml

(*
 * 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

let create_fake_jsonbug
    ?(bug_class="bug_class")
    ?(kind="kind")
    ?(bug_type="bug_type")
    ?(qualifier="qualifier")
    ?(severity="severity")
    ?(visibility="visibility")
    ?(line=1)
    ?(column=1)
    ?(procedure="procedure")
    ?(procedure_id="procedure_id")
    ?(procedure_start_line=1)
    ?(file="file/at/a/certain/path.java")
    ?(bug_trace=[])
    ?(key=1234)
    ?(qualifier_tags=[])
    ?(hash=1)
    ?(dotty=None)
    ?(infer_source_loc=None)
    ?(linters_def_file=Some "file/at/certain/path.al")
    ?doc_url () : Jsonbug_t.jsonbug =
  {
    bug_class;
    kind;
    bug_type;
    qualifier;
    severity;
    visibility;
    line;
    column;
    procedure;
    procedure_id;
    procedure_start_line;
    file;
    bug_trace;
    key;
    qualifier_tags;
    hash;
    dotty;
    infer_source_loc;
    bug_type_hum = kind;
    linters_def_file;
    doc_url;
    traceview_id = None;
  }

let pp_diff_of_int_list group_name fmt (expected, actual) =
  Format.fprintf fmt
    "[%s]: Expected: [%a] Found: [%a]"
    group_name
    (Pp.comma_seq Format.pp_print_int) expected
    (Pp.comma_seq Format.pp_print_int) actual

(* Sort hashes to make things easier to compare *)
let sorted_hashes_of_issues issues =
  let hash i = i.Jsonbug_t.hash in
  List.sort ~cmp:Int.compare (List.map ~f:hash issues)