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.
63 lines
1.5 KiB
63 lines
1.5 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
|
||
|
|
|
||
|
|
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) () : 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;
|
||
|
|
}
|
||
|
|
|
||
|
|
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)
|