70 lines
2.7 KiB
OCaml
70 lines
2.7 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* OCaml *)
|
|
(* *)
|
|
(* Sebastien Hinderer, projet Gallium, INRIA Paris *)
|
|
(* *)
|
|
(* Copyright 2016 Institut National de Recherche en Informatique et *)
|
|
(* en Automatique. *)
|
|
(* *)
|
|
(* All rights reserved. This file is distributed under the terms of *)
|
|
(* the GNU Lesser General Public License version 2.1, with the *)
|
|
(* special exception on linking described in the file LICENSE. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
(* Description of ocamltest's command-line options *)
|
|
|
|
let show_objects title string_of_object objects =
|
|
let print_object o = print_endline (" " ^ (string_of_object o)) in
|
|
print_endline title;
|
|
List.iter print_object objects;
|
|
exit 0
|
|
|
|
let string_of_action = Actions.action_name
|
|
|
|
let string_of_test test =
|
|
if test.Tests.test_run_by_default
|
|
then (test.Tests.test_name ^ " (run by default)")
|
|
else test.Tests.test_name
|
|
|
|
let string_of_variable v =
|
|
Printf.sprintf "%s: %s"
|
|
(Variables.name_of_variable v)
|
|
(Variables.description_of_variable v)
|
|
|
|
let show_actions () =
|
|
let actions = Actions.get_registered_actions () in
|
|
show_objects "Available actions are:" string_of_action actions
|
|
|
|
let show_tests () =
|
|
let tests = Tests.get_registered_tests () in
|
|
show_objects "Available tests are:" string_of_test tests
|
|
|
|
let show_variables () =
|
|
let variables = Variables.get_registered_variables () in
|
|
show_objects "Available variables are:" string_of_variable variables
|
|
|
|
let log_to_stderr = ref false
|
|
|
|
let promote = ref false
|
|
|
|
let commandline_options =
|
|
[
|
|
("-e", Arg.Set log_to_stderr, "Log to stderr instead of a file.");
|
|
("-promote", Arg.Set promote,
|
|
"Overwrite reference files with the test output (experimental, unstable)");
|
|
("-show-actions", Arg.Unit show_actions, "Show available actions.");
|
|
("-show-tests", Arg.Unit show_tests, "Show available tests.");
|
|
("-show-variables", Arg.Unit show_variables, "Show available variables.");
|
|
]
|
|
|
|
let files_to_test = ref []
|
|
|
|
let add_testfile name = files_to_test := !files_to_test @ [name]
|
|
|
|
let usage = "Usage: " ^ Sys.argv.(0) ^ " options files to test"
|
|
|
|
let _ =
|
|
Arg.parse commandline_options add_testfile usage
|