module Utils:sig
..end
type
output = {
|
log : |
(* |
The logging produced while running the
tests.
| *) |
|
outcomes : |
(* |
The results of running the tests.
| *) |
type
raw_summary = {
|
total : |
|
errors : |
|
failures : |
|
passes : |
|
passed : |
type
summary = {
|
report : |
(* |
A report summarising the test results.
| *) |
|
passed : |
(* |
A flag indicating whether all the tests
passed.
| *) |
val run : Webtest.Suite.t -> (output -> unit) -> unit
run suite callback
runs suite
, passes the output to callback
.val summarise_raw : Webtest.Suite.outcome list -> raw_summary
summarise outcomes
converts a list of test outcomes into a raw
summary.val summary_of_raw : raw_summary -> summary
summary_of_raw
creates a basic summary from a raw summary.val summarise : Webtest.Suite.outcome list -> summary
summarise outcomes
converts a list of test outcomes into a summary.