package ortac-runtime-qcheck-stm

  1. Overview
  2. Docs

Module Ortac_runtime_qcheck_stm_domain.MakeSource

Parameters

module Spec : SpecOrtac

Signature

Sourcetype pos =
  1. | Prefix
  2. | Tail1
  3. | Tail2
Sourcetype traces = {
  1. where_it_failed : pos;
  2. trace_prefix : Report.trace list;
  3. trace_tail_1 : Report.trace list;
  4. trace_tail_2 : Report.trace list;
}
Sourceval empty : pos -> traces
Sourceval start_traces : pos -> string lazy_t -> STM.res -> traces
Sourceval add_trace : (pos * Report.trace) -> traces -> traces
Sourceval append_traces : traces -> (pos * Report.trace list) -> traces
Sourceval get_traces : pos -> traces -> Report.trace list
Sourceval (<+>) : (pos * Report.trace) -> (traces * 'a) option -> (traces * 'a) option
Sourceval (<++>) : (traces * 'a) option -> (pos * Report.trace list) -> (traces * 'a) option
Sourceval (&&&) : 'a option -> 'a option Lazy.t -> 'a option
Sourceval (|||) : 'a option -> 'b option Lazy.t -> 'b option
Sourceval check_obs : (Spec.cmd -> Spec.state -> bool -> STM.res -> string) -> (Spec.cmd -> Spec.state -> STM.res -> 'a option) -> (Spec.cmd * STM.res) list -> (Spec.cmd * STM.res) list -> (Spec.cmd * STM.res) list -> Spec.state -> (traces * 'a) option
Sourceval all_interleavings_ok : (Spec.cmd list * Spec.cmd list * Spec.cmd list) -> bool
Sourceval arb_cmds_triple : int -> int -> (Spec.cmd list * Spec.cmd list * Spec.cmd list) QCheck.arbitrary
Sourceval rep_count : int
Sourceval retries : int
Sourceval seq_len : int
Sourceval par_len : int
Sourceval interp_sut_res : Spec.sut -> Spec.cmd list -> (Spec.cmd * STM.res) list
Sourceval run_par : Spec.cmd list -> Spec.cmd list -> Spec.cmd list -> (Spec.cmd * STM.res) list * (Spec.cmd * STM.res) list * (Spec.cmd * STM.res) list
Sourceval pp_prefix : Report.expected_result -> Format.formatter -> traces -> unit
Sourceval pp_spawned : pos -> Format.formatter -> traces -> unit
Sourceval pp_program : int -> Format.formatter -> (traces * Report.t) -> unit
Sourceval agree_prop : int -> (unit -> 'a) -> (Spec.cmd -> Spec.state -> bool -> STM.res -> string) -> (Spec.cmd -> Spec.state -> STM.res -> Report.t option) -> (Spec.cmd list * Spec.cmd list * Spec.cmd list) -> bool
Sourceval agree_test : count:int -> name:string -> int -> (unit -> 'a) -> (Spec.cmd -> Spec.state -> bool -> STM.res -> string) -> (Spec.cmd -> Spec.state -> STM.res -> Report.t option) -> QCheck.Test.t