package speed
-
speed
Legend:
Library
Module
Module type
Parameter
Class
Class type
Library
Module
Module type
Parameter
Class
Class type
module Dom : sig ... end
type test_result = SyncTestResult.t
type !'a test_function = 'a test_input -> test_result
type !'a example = 'a Make(SyncTestResult).example = {
name : string;
focus : bool;
metadata : Metadata.t list;
f : 'a test_function;
}
type !'a t = 'a Make(SyncTestResult).t = {
name : string option;
child_groups : 'a child_suite list;
metadata : Metadata.t list;
examples : 'a example list;
has_focused : bool;
}
and !'a child_suite = 'a Make(SyncTestResult).child_suite =
| Child : {
child : 'b t;
setup : 'a0 test_input -> 'b;
} -> 'a0 child_suite
| Context : {
child : 'a1 t;
} -> 'a1 child_suite
val empty : 'a Dom.t
val make_suite : ?name:string -> ?metadata:Metadata.t list -> unit -> 'a Dom.t
val make : string -> 'a Dom.t
val add_example :
?focus:bool ->
?metadata:Metadata.t list ->
string ->
'a Dom.test_function ->
'a Dom.t ->
'a Dom.t
val add_child : 'a Dom.child_suite -> 'a Dom.t -> 'a Dom.t
val add_child_group_with_setup :
setup:('a test_input -> 'b) ->
'b Dom.t ->
'a Dom.t ->
'a Dom.t
val add_fixture :
?name:string ->
?metadata:Metadata.t list ->
setup:('a test_input -> 'b) ->
('c Dom.t -> 'b Dom.t) ->
'a Dom.t ->
'a Dom.t
val add_context :
?metadata:Metadata.t list ->
string ->
('a Dom.t -> 'b Dom.t) ->
'b Dom.t ->
'b Dom.t
val get_example_count : 'a Dom.t -> int
val child_group_count : 'a Dom.t -> int