module Test_result : sig ... endtype config = (module Inline_test_config.S)type 'a test_function_args = config:config -> descr:string -> tags:string list -> filename:string -> line_number:int -> start_pos:int -> end_pos:int -> 'a
val set_lib_and_partition : string -> string -> unitval unset_lib : string -> unitval test : ((unit -> bool) -> unit) test_function_argsval test_unit : ((unit -> unit) -> unit) test_function_argsval test_module : ((unit -> unit) -> unit) test_function_argsval testing : [ `Not_testing | `Testing of [ `Am_test_runner | `Am_child_of_test_runner ] ]`Am_test_runnermeans the./inline_tests_runnerprocess, whereas`Am_child_of_test_runnermeans a process descended from the test runner.
val use_color : boolval in_place : boolval diff_command : string optionval source_tree_root : string optionval allow_output_patterns : boolAllow patterns in tests expectation
val am_running_inline_test : boolam_running_inline_testistrueif the code is running inline tests (e.g.let%expect_test,let%test,let%test_unit) or is in an executable invoked from inline tests.
val am_running_inline_test_env_var : stringval add_evaluator : f:(unit -> Test_result.t) -> unitRecord an evaluator for an external set of tests