Source file unit_analyze_ml.ml
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
open OUnit
let verbose = false
let unittest =
"analyze_ml" >::: [
"building light database" >:: (fun () ->
let data_dir = Config_pfff.path ^ "/tests/ml/db" in
let _db = Database_light_ml.compute_database ~verbose [data_dir] in
()
);
"coverage_ml" >::: ([
"basename to readable" >:: (fun () ->
let dummy_coverage = { Coverage_code.
covered_sites = []; all_sites = []
}
in
let cover = [
("unit_analyze_ml.ml", dummy_coverage);
("coverage_ml.ml", dummy_coverage);
]
in
let root = Filename.concat Config_pfff.path "lang_ml" in
let cover' =
Coverage_ml.basename_coverage_to_readable_coverage cover root
|> List.map fst
in
assert_equal
~msg:"it should map basename'd files to readable paths"
["analyze/unit_analyze_ml.ml";
"analyze/coverage_ml.ml";
]
cover'
);
]);
]