speed 0.2.0 (latest) · OCaml Package

type (!'a, !'b) setup_stack =
  ('a, 'b) Make(Domain.LwtDomain)(ExampleRunner.LwtRunner).setup_stack =

| Root : (unit Domain.test_input -> 'a0) -> (unit, 'a0) setup_stack
| Stack : ('a1, 'b0) setup_stack * ('b0 Domain.test_input -> 'c) -> ('a1, 'c) setup_stack

val filter_suite : 'a Domain.LwtDomain.t -> 'a Domain.LwtDomain.t

val filter_suite_mixed : 
  'a Domain.LwtDomain.child_suite ->
  'a Domain.LwtDomain.child_suite

val start_group : 
  string option ->
  Stdlib.Format.formatter ->
  suite_result ->
  (suite_result -> ('a -> 'b) -> 'c) ->
  ('a -> 'b) ->
  'c

val start_example : 
  string ->
  Stdlib.Format.formatter ->
  suite_result ->
  (suite_result -> (suite_result -> ExampleRunner.test_outcome -> 'a) -> 'b) ->
  (suite_result -> 'a) ->
  'b

val run_setup : metadata list -> (unit, 'b) setup_stack -> 'b

val run_ex : 
  Stdlib.Format.formatter ->
  suite_result ->
  'a Domain.LwtDomain.example ->
  Speed_domain.Metadata.t list ->
  (unit, 'a) setup_stack ->
  (suite_result -> 'b ExampleRunner.LwtRunner.cont_result) ->
  'b ExampleRunner.LwtRunner.cont_result

val run_child_suite : 
  Stdlib.Format.formatter ->
  suite_result ->
  'a Domain.LwtDomain.t ->
  metadata list ->
  (unit, 'a) setup_stack ->
  'b ExampleRunner.LwtRunner.cont_result continuation

val run_suite : 
  ?fmt:Stdlib.Format.formatter ->
  ?filter:bool ->
  ?ctx:suite_result ->
  unit Domain.LwtDomain.t ->
  (suite_result -> 'a ExampleRunner.LwtRunner.cont_result) ->
  'a ExampleRunner.LwtRunner.cont_result

val wait : 'a ExampleRunner.LwtRunner.cont_result -> 'a

val run_suite_return : 
  ?fmt:Stdlib.Format.formatter ->
  unit Domain.LwtDomain.t ->
  suite_result ExampleRunner.LwtRunner.cont_result

val run_suite_wait : 
  ?fmt:Stdlib.Format.formatter ->
  unit Domain.LwtDomain.t ->
  suite_result

val is_success : suite_result -> bool

val get_no_of_failing_examples : suite_result -> int

val get_no_of_passing_examples : suite_result -> int

val consume_test_result : Stdlib.Format.formatter -> suite_result -> 'a

val has_focused : 'a Domain.LwtDomain.t -> bool

package speed