Legend:
Library
Module
Module type
Parameter
Class
Class type
Library
Module
Module type
Parameter
Class
Class type
include module type of struct include Autofonce_core.Types end
type location = Autofonce_m4.M4Types.location
type check = Autofonce_core.Types.check = {
check_loc : location;
check_step : step;
check_command : string;
check_retcode : int option;
check_stdout : check_output;
check_stderr : check_output;
check_run_if_fail : action list;
check_run_if_pass : action list;
check_kind : string;
check_test : test;
}
and action = Autofonce_core.Types.action =
and test = Autofonce_core.Types.test = {
test_suite : suite;
test_loc : location;
test_name : string;
test_id : int;
test_env : string;
test_subst : string list;
mutable test_keywords : string list;
mutable test_actions : action list;
}
and suite = Autofonce_core.Types.suite = {
suite_file : string;
suite_dir : string;
mutable suite_ntests : int;
suite_test_by_id : (int, test) Hashtbl.t;
mutable suite_tests : test list;
mutable suite_tested_programs : string list;
mutable suite_copyright : string;
mutable suite_name : string;
}
val string_of_location : Autofonce_m4.M4Types.location -> string
val string_of_action : action -> string
val string_of_check_output : check_output -> string
val string_of_runif : action list -> string
val string_of_check : check -> string
include module type of struct include Autofonce_config.Types end
type testsuite_env = Autofonce_config.Types.testsuite_env = {
env_name : string;
env_kind : env_kind;
env_content : string;
}
type testsuite_config = Autofonce_config.Types.testsuite_config = {
config_name : string;
config_file : string;
config_path : string list;
config_env : testsuite_env;
}
type project_config = Autofonce_config.Types.project_config = {
project_name : string option;
project_source_anchors : string list;
project_build_anchors : string list;
project_build_dir_candidates : string list;
project_run_from : run_from;
project_testsuites : testsuite_config list;
project_envs : testsuite_env EzCompat.StringMap.t;
project_captured_files : string list;
project_file : string;
project_source_dir : string;
project_build_dir : string;
project_run_dir : string;
}
type state = {
state_suite : suite;
state_run_dir : string;
state_config : testsuite_config;
state_project : project_config;
mutable state_status : string;
mutable state_ntests_ran : int;
mutable state_ntests_ok : int;
mutable state_tests_failed : tester list;
mutable state_tests_skipped : tester list;
mutable state_tests_failexpected : tester list;
mutable state_buffer : EzCompat.Buffer.t;
mutable state_ntests : int;
mutable state_nchecks : int;
mutable state_status_printed : bool;
}