Module Ortac_runtime_qcheck_stm

include module type of Ortac_runtime
type location = {
  1. start : Stdlib.Lexing.position;
  2. stop : Stdlib.Lexing.position;
}
type term_kind =
  1. | Check
  2. | Pre
  3. | Post
  4. | XPost
type error =
  1. | Violated_axiom
  2. | Axiom_failure of {
    1. exn : exn;
    }
  3. | Violated_invariant of {
    1. term : string;
    2. position : term_kind;
    }
  4. | Violated_condition of {
    1. term : string;
    2. term_kind : term_kind;
    }
  5. | Specification_failure of {
    1. term : string;
    2. term_kind : term_kind;
    3. exn : exn;
    }
  6. | Unexpected_exception of {
    1. allowed_exn : string list;
    2. exn : exn;
    }
  7. | Uncaught_checks of {
    1. term : string;
    }
  8. | Unexpected_checks of {
    1. terms : string list;
    }
type error_report = {
  1. loc : location;
  2. fun_name : string;
  3. mutable errors : error list;
}
val pp_loc : Stdlib.Format.formatter -> location -> unit
val pp_error_report : Stdlib.Format.formatter -> error_report -> unit
exception Error of error_report
module Errors : sig ... end
exception Partial_function of exn * location
type integer
val string_of_integer : integer -> string
module Gospelstdlib : sig ... end
module Z : sig ... end
type expected_result =
  1. | Value of STM.res
    (*

    The value has been computed

    *)
  2. | Protected_value of STM.res
    (*

    The value has been computed but is protected as it could have been an exception

    *)
  3. | Exception of string
    (*

    An exception is expected

    *)
  4. | Out_of_domain
    (*

    The computation of the expected returned value called a Gospel function out of its domain

    *)

This type carries the expected value computed from the Gospel specification if possible.

type report

Information for the bug report in case of test failure

val report : string -> string -> expected_result -> string -> (string * location) list -> report

report module_name init_sut ret cmd terms

val append : report option -> report option -> report option

append a b appends the violated terms of a and b if any in the returned report

val dummy : 'a STM.ty * ('b -> string)

A dummy STM.res for unknown returned values

module Model : sig ... end
module SUT : sig ... end
module Make (Spec : STM.Spec) : sig ... end