36 lines
1.0 KiB
OCaml
36 lines
1.0 KiB
OCaml
|
|
||
|
|
include (module type of struct include Kaputt.Assertion end)
|
||
|
|
|
||
|
|
val fail_msg : ('a, Format.formatter, unit, 'b) format4 -> 'a
|
||
|
|
|
||
|
|
val fail : string -> string -> ('a, Format.formatter, unit, 'b) format4 -> 'a
|
||
|
|
|
||
|
|
val equal_persist_list :
|
||
|
|
?msg:string -> Persist.key list -> Persist.key list -> unit
|
||
|
|
|
||
|
|
val equal_string_option : ?msg:string -> string option -> string option -> unit
|
||
|
|
|
||
|
|
val equal_error_monad :
|
||
|
|
?msg:string -> Error_monad.error -> Error_monad.error -> unit
|
||
|
|
|
||
|
|
val equal_block_map : ?msg:string -> eq:('a -> 'a -> bool) -> 'a -> 'a -> unit
|
||
|
|
|
||
|
|
val equal_operation :
|
||
|
|
?msg:string ->
|
||
|
|
(Hash.Operation_hash.t * State.Operation.operation) option ->
|
||
|
|
(Hash.Operation_hash.t * State.Operation.operation) option ->
|
||
|
|
unit
|
||
|
|
|
||
|
|
val equal_block :
|
||
|
|
?msg:string ->
|
||
|
|
(Hash.Block_hash.t * Store.block_header) option ->
|
||
|
|
(Hash.Block_hash.t * Store.block_header) option ->
|
||
|
|
unit
|
||
|
|
|
||
|
|
val equal_result :
|
||
|
|
?msg:string ->
|
||
|
|
('a, 'b) result ->
|
||
|
|
('a, 'b) result ->
|
||
|
|
equal_ok:(?msg:string -> 'a -> 'a -> 'c) ->
|
||
|
|
equal_err:(?msg:string -> 'b -> 'b -> 'c) -> 'c
|