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.
62 lines
2.0 KiB
62 lines
2.0 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
|
|
|
|
open DifferentialTestsUtils
|
|
|
|
let current_report = [
|
|
create_fake_jsonbug ~hash:3 ();
|
|
create_fake_jsonbug ~hash:1 ();
|
|
create_fake_jsonbug ~hash:2 ();
|
|
create_fake_jsonbug ~hash:2 ();
|
|
create_fake_jsonbug ~hash:2 ();
|
|
]
|
|
|
|
let previous_report = [
|
|
create_fake_jsonbug ~hash:1 ();
|
|
create_fake_jsonbug ~hash:4 ();
|
|
create_fake_jsonbug ~hash:1 ();
|
|
]
|
|
|
|
let diff = Differential.of_reports ~current_report ~previous_report
|
|
|
|
(* Sets operations should keep duplicated issues with identical hashes *)
|
|
let test_diff_keeps_duplicated_hashes =
|
|
let hashes_expected = 3 in
|
|
let hashes_found = List.fold
|
|
~init:0
|
|
~f:(fun acc i -> if Int.equal i.Jsonbug_t.hash 2 then acc + 1 else acc)
|
|
diff.introduced in
|
|
let pp_diff fmt (expected, actual) =
|
|
Format.fprintf fmt
|
|
"Expected %d issues with hash=2 among the introduced, but got %d instead"
|
|
expected
|
|
actual in
|
|
let do_assert _ = assert_equal ~pp_diff hashes_expected hashes_found in
|
|
"test_diff_keeps_duplicated_hashes" >:: do_assert
|
|
|
|
(* Sets operations to compute introduced, fixed and preexisting issues are correct *)
|
|
let test_set_operations =
|
|
let do_assert _ =
|
|
assert_equal
|
|
~pp_diff:(pp_diff_of_int_list "Hashes of introduced")
|
|
[2;2;2;3] (sorted_hashes_of_issues diff.introduced);
|
|
assert_equal
|
|
~pp_diff:(pp_diff_of_int_list "Hashes of fixed")
|
|
[4] (sorted_hashes_of_issues diff.fixed);
|
|
assert_equal
|
|
~pp_diff:(pp_diff_of_int_list "Hashes of preexisting")
|
|
[1] (sorted_hashes_of_issues diff.preexisting) in
|
|
"test_set_operations" >:: do_assert
|
|
|
|
let tests = "differential_suite" >::: [test_diff_keeps_duplicated_hashes; test_set_operations]
|