2 * Copyright 2010, INRIA, University of Copenhagen
3 * Julia Lawall, Rene Rydhof Hansen, Gilles Muller, Nicolas Palix
4 * Copyright 2005-2009, Ecole des Mines de Nantes, University of Copenhagen
5 * Yoann Padioleau, Julia Lawall, Rene Rydhof Hansen, Henrik Stuart, Gilles Muller, Nicolas Palix
6 * This file is part of Coccinelle.
8 * Coccinelle is free software: you can redistribute it and/or modify
9 * it under the terms of the GNU General Public License as published by
10 * the Free Software Foundation, according to version 2 of the License.
12 * Coccinelle is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 * GNU General Public License for more details.
17 * You should have received a copy of the GNU General Public License
18 * along with Coccinelle. If not, see <http://www.gnu.org/licenses/>.
20 * The authors reserve the right to distribute this or future versions of
21 * Coccinelle under other licenses.
27 (*****************************************************************************)
28 (* work with tests/ *)
29 (*****************************************************************************)
30 val testone
: string (*prefix*) -> string (*test*) -> bool (*compare_expected*) -> unit
31 val testall
: ?expected_score_file
:string -> unit -> unit
33 (*****************************************************************************)
34 (* works with tests-big/. The .res, .ok, .spatch_ok, .failed, .var *)
35 (*****************************************************************************)
36 val test_okfailed
: filename
(*cocci*) -> filename
(*c*) list
-> unit
37 val test_regression_okfailed
: unit -> unit
41 (*****************************************************************************)
42 (* the parameter is the result of Cocci.full_engine *)
43 (*****************************************************************************)
44 val compare_with_expected
: (filename
* filename
option) list
-> unit
47 (*****************************************************************************)
48 (* to test/debug the coccinelle subsystems *)
49 (*****************************************************************************)
52 * I moved the parsing_c/ subsystem testing in parsing_c/test_parsing_c.ml
53 * as I need it for other projects too.
56 val test_parse_cocci
: filename
-> unit
58 (*****************************************************************************)
59 (* to be called by ocaml toplevel, to test. *)
60 (*****************************************************************************)
63 filename
(* coccifile *) -> filename
option (* isofile *) ->
64 Ast_cocci.metavar list list
* Ast_cocci.rule list
*
65 Ast_cocci.meta_name list list list
*
66 Ast_cocci.meta_name list list list
*
67 (Ast_cocci.meta_name list list list
(*used after list*) *
68 (*fresh used after list*)
69 Ast_cocci.meta_name list list list
*
70 (*fresh used after list seeds*)
71 Ast_cocci.meta_name list list list
) *
72 Ast_cocci.meta_name list list list
*
75 Get_constants2.combine
option)
78 val rule_elem_of_string : string -> filename option -> Ast_cocci.rule_elem
82 val flows_of_ast : Ast_c.program -> Control_flow_c.cflow list
83 val print_flow : Control_flow_c.cflow -> unit
86 Ast_cocci.rule list ->
87 Ast_cocci.meta_name list list list ->
88 (Lib_engine.ctlcocci *
89 ((Lib_engine.predicate * Ast_cocci.meta_name Ast_ctl.modif)
94 val one_flow : Control_flow_c.cflow list -> Control_flow_c.cflow
95 val one_ctl : Lib_engine.ctlcocci list list -> Lib_engine.ctlcocci