speed 0.2.0 (latest) · OCaml Package

type (!'a, !'b) setup_stack =
  ('a, 'b) Make(Domain.Sync)(ExampleRunner.SyncRunner).setup_stack =

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

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

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

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

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

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

val run_ex : 
  Format.formatter ->
  suite_result ->
  'a Domain.Sync.example ->
  Speed_domain.Metadata.t list ->
  (unit, 'a0) setup_stack ->
  (suite_result -> 'b ExampleRunner.SyncRunner.cont_result) ->
  'c ExampleRunner.SyncRunner.cont_result

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

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

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

val run_suite_return : 
  ?fmt:Format.formatter ->
  unit Domain.Sync.t ->
  suite_result ExampleRunner.SyncRunner.cont_result

val run_suite_wait : 
  ?fmt:Format.formatter ->
  unit Domain.Sync.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 : Format.formatter -> suite_result -> 'a

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

package speed