package / ocaml-base-compiler.4.10.0 / ocamltest / actions_helpers.mli
1 (**************************************************************************)
2 (* *)
3 (* OCaml *)
4 (* *)
5 (* Sebastien Hinderer, projet Gallium, INRIA Paris *)
6 (* *)
7 (* Copyright 2016 Institut National de Recherche en Informatique et *)
8 (* en Automatique. *)
9 (* *)
10 (* All rights reserved. This file is distributed under the terms of *)
11 (* the GNU Lesser General Public License version 2.1, with the *)
12 (* special exception on linking described in the file LICENSE. *)
13 (* *)
14 (**************************************************************************)
15
16 (* Helper functions when writing actions *)
17
18 val skip_with_reason : string -> Actions.t
19
20 val pass_or_skip
21 : bool -> string -> string -> out_channel -> Environments.t
22 -> Result.t * Environments.t
23
24 val mkreason : string -> string -> int -> string
25
26 val testfile : Environments.t -> string
27
28 val test_build_directory : Environments.t -> string
29
30 val test_source_directory : Environments.t -> string
31
32 val words_of_variable : Environments.t -> Variables.t -> string list
33
34 val exit_status_of_variable : Environments.t -> Variables.t -> int
35
36 val files : Environments.t -> string list
37
38 val setup_symlinks : string -> string -> string list -> unit
39
40 val setup_build_env : bool -> string list -> Actions.code
41
42 val setup_simple_build_env : bool -> string list -> Actions.code
43
44 val run_cmd :
45 ?environment : string array ->
46 ?stdin_variable : Variables.t ->
47 ?stdout_variable : Variables.t ->
48 ?stderr_variable : Variables.t ->
49 ?append : bool ->
50 ?timeout : int ->
51 out_channel -> Environments.t -> string list -> int
52
53 val run : string -> bool -> bool -> Variables.t
54 -> Variables.t option -> Actions.code
55
56 val run_program : Actions.code
57
58 val run_script : Actions.code
59
60 val run_hook : string -> Actions.code
61
62 val check_output : string -> Variables.t -> Variables.t -> Actions.code
63