package octez-protocol-020-PsParisC-libs
Install
Dune Dependency
Authors
Maintainers
Sources
sha256=ddfb5076eeb0b32ac21c1eed44e8fc86a6743ef18ab23fff02d36e365bb73d61
sha512=d22a827df5146e0aa274df48bc2150b098177ff7e5eab52c6109e867eb0a1f0ec63e6bfbb0e3645a6c2112de3877c91a17df32ccbff301891ce4ba630c997a65
doc/octez-protocol-020-PsParisC-libs.test-helpers/Tezos_020_PsParisC_test_helpers/Assert/index.html
Module Tezos_020_PsParisC_test_helpers.Assert
Source
val error :
loc:string ->
('a, Tezos_base.TzPervasives.tztrace) result ->
(Tezos_error_monad.TzCore.error -> bool) ->
unit Tezos_base.TzPervasives.tzresult Lwt.t
val proto_error :
loc:string ->
('a, Tezos_base.TzPervasives.tztrace) result ->
(Tezos_protocol_020_PsParisC.Environment.Error_monad.error -> bool) ->
unit Tezos_base.TzPervasives.tzresult Lwt.t
val proto_error_with_info :
?error_info_field:[< `Description | `Id | `Message | `Title Title ] ->
loc:string ->
('a, Tezos_base.TzPervasives.tztrace) result ->
Tezos_base.TzPervasives.String.t ->
unit Tezos_base.TzPervasives.tzresult Lwt.t
val equal :
loc:string ->
('a -> 'a -> bool) ->
string ->
(Format.formatter -> 'a -> unit) ->
'a ->
'a ->
unit Tezos_base.TzPervasives.tzresult Lwt.t
val leq :
loc:string ->
('a -> 'a -> int) ->
string ->
(Format.formatter -> 'a -> unit) ->
'a ->
'a ->
unit Tezos_base.TzPervasives.tzresult Lwt.t
val lt :
loc:string ->
('a -> 'a -> int) ->
string ->
(Format.formatter -> 'a -> unit) ->
'a ->
'a ->
unit Tezos_base.TzPervasives.tzresult Lwt.t
val not_equal :
loc:string ->
('a -> 'a -> bool) ->
string ->
(Format.formatter -> 'a -> unit) ->
'a ->
'a ->
unit Tezos_base.TzPervasives.tzresult Lwt.t
val equal_char :
loc:string ->
Char.t ->
Char.t ->
unit Tezos_base.TzPervasives.tzresult Lwt.t
val not_equal_int64 :
loc:string ->
int64 ->
int64 ->
unit Tezos_base.TzPervasives.tzresult Lwt.t
val not_equal_bool :
loc:string ->
bool ->
bool ->
unit Tezos_base.TzPervasives.tzresult Lwt.t
val equal_string :
loc:string ->
string ->
string ->
unit Tezos_base.TzPervasives.tzresult Lwt.t
val not_equal_string :
loc:string ->
string ->
string ->
unit Tezos_base.TzPervasives.tzresult Lwt.t
val equal_tez :
loc:string ->
Tezos_protocol_020_PsParisC.Protocol.Alpha_context.Tez.t ->
Tezos_protocol_020_PsParisC.Protocol.Alpha_context.Tez.t ->
unit Tezos_base.TzPervasives.tzresult Lwt.t
val not_equal_tez :
loc:string ->
Tezos_protocol_020_PsParisC.Protocol.Alpha_context.Tez.t ->
Tezos_protocol_020_PsParisC.Protocol.Alpha_context.Tez.t ->
unit Tezos_base.TzPervasives.tzresult Lwt.t
val equal_pkh :
loc:string ->
Tezos_base.TzPervasives.Signature.Public_key_hash.t ->
Tezos_base.TzPervasives.Signature.Public_key_hash.t ->
unit Tezos_base.TzPervasives.tzresult Lwt.t
val not_equal_pkh :
loc:string ->
Tezos_base.TzPervasives.Signature.Public_key_hash.t ->
Tezos_base.TzPervasives.Signature.Public_key_hash.t ->
unit Tezos_base.TzPervasives.tzresult Lwt.t
val equal_protocol_hash :
loc:string ->
Tezos_base.TzPervasives.Protocol_hash.t ->
Tezos_base.TzPervasives.Protocol_hash.t ->
unit Tezos_base.TzPervasives.tzresult Lwt.t
val not_equal_protocol_hash :
loc:string ->
Tezos_base.TzPervasives.Protocol_hash.t ->
Tezos_base.TzPervasives.Protocol_hash.t ->
unit Tezos_base.TzPervasives.tzresult Lwt.t
val is_none :
loc:string ->
pp:(Format.formatter -> 'a -> unit) ->
'a option ->
unit Tezos_base.TzPervasives.tzresult Lwt.t
val equal_result :
loc:string ->
pp_ok:(Format.formatter -> 'a -> unit) ->
pp_error:(Format.formatter -> 'b -> unit) ->
('a -> 'a -> bool) ->
('b -> 'b -> bool) ->
('a, 'b) result ->
('a, 'b) result ->
unit Tezos_base.TzPervasives.tzresult Lwt.t
val is_error :
loc:string ->
pp:(Format.formatter -> 'a -> unit) ->
('a, 'b) result ->
unit Tezos_base.TzPervasives.tzresult Lwt.t
val get_ok :
__LOC__:string ->
('a, Tezos_base.TzPervasives.tztrace) result ->
'a Tezos_base.TzPervasives.tzresult Lwt.t
val contract_property_is :
('a ->
'b ->
(Tezos_protocol_020_PsParisC.Protocol.Alpha_context.Tez.t,
Tezos_base.TzPervasives.tztrace)
result
Lwt.t) ->
loc:string ->
'a ->
'b ->
Tezos_protocol_020_PsParisC.Protocol.Alpha_context.Tez.t ->
(unit, Tezos_base.TzPervasives.tztrace) result Lwt.t
val balance_is :
loc:string ->
Tezos_020_PsParisC_test_helpers__Context.t ->
Tezos_protocol_020_PsParisC.Protocol.Alpha_context.Contract.t ->
Tezos_protocol_020_PsParisC.Protocol.Alpha_context.Tez.t ->
(unit, Tezos_base.TzPervasives.tztrace) result Lwt.t
balance_is b c amount
checks that the current balance b
of contract c
is amount
.
val frozen_bonds_is :
loc:string ->
Tezos_020_PsParisC_test_helpers__Context.t ->
Tezos_protocol_020_PsParisC.Protocol.Alpha_context.Contract.t ->
Tezos_protocol_020_PsParisC.Protocol.Alpha_context.Tez.t ->
(unit, Tezos_base.TzPervasives.tztrace) result Lwt.t
frozen_bonds_is b c amount
checks that the current frozen bonds of contract c
is amount
.
val balance_or_frozen_bonds_was_operated :
is_balance:bool ->
operand:
('a ->
'b ->
Tezos_protocol_020_PsParisC.Protocol.Alpha_context.Tez.t
Tezos_protocol_020_PsParisC.Environment.Error_monad.tzresult) ->
loc:string ->
Tezos_020_PsParisC_test_helpers__Context.t ->
Tezos_protocol_020_PsParisC.Protocol.Alpha_context.Contract.t ->
'a ->
'b ->
unit Tezos_base.TzPervasives.tzresult Lwt.t
val balance_was_credited :
loc:string ->
Tezos_020_PsParisC_test_helpers__Context.t ->
Tezos_protocol_020_PsParisC.Protocol.Alpha_context.Contract.t ->
Tezos_protocol_020_PsParisC.Protocol.Alpha_context.Tez.t ->
Tezos_protocol_020_PsParisC.Protocol.Alpha_context.Tez.t ->
unit Tezos_base.TzPervasives.tzresult Lwt.t
balance_was_credited ~loc ctxt contract old_balance amount
checks that contract
's balance was credited amount
tez in comparison to old_balance
.
val balance_was_debited :
loc:string ->
Tezos_020_PsParisC_test_helpers__Context.t ->
Tezos_protocol_020_PsParisC.Protocol.Alpha_context.Contract.t ->
Tezos_protocol_020_PsParisC.Protocol.Alpha_context.Tez.t ->
Tezos_protocol_020_PsParisC.Protocol.Alpha_context.Tez.t ->
unit Tezos_base.TzPervasives.tzresult Lwt.t
balance_was_credited ~loc ctxt contract old_balance amount
checks that contract
's balance was debited amount
tez in comparison to old_balance
.
val frozen_bonds_was_credited :
loc:string ->
Tezos_020_PsParisC_test_helpers__Context.t ->
Tezos_protocol_020_PsParisC.Protocol.Alpha_context.Contract.t ->
Tezos_protocol_020_PsParisC.Protocol.Alpha_context.Tez.t ->
Tezos_protocol_020_PsParisC.Protocol.Alpha_context.Tez.t ->
unit Tezos_base.TzPervasives.tzresult Lwt.t
frozen_bonds_was_credited ~loc ctxt contract old_balance amount
checks that contract
's frozen bonds was credited amount
tez in comparison to old_balance
.
val frozen_bonds_was_debited :
loc:string ->
Tezos_020_PsParisC_test_helpers__Context.t ->
Tezos_protocol_020_PsParisC.Protocol.Alpha_context.Contract.t ->
Tezos_protocol_020_PsParisC.Protocol.Alpha_context.Tez.t ->
Tezos_protocol_020_PsParisC.Protocol.Alpha_context.Tez.t ->
unit Tezos_base.TzPervasives.tzresult Lwt.t
frozen_bonds_was_credited ~loc ctxt contract old_balance amount
checks that contract
's frozen bonds was credited amount
tez in comparison to old_balance
.
val assert_equal_list :
loc:string ->
('a -> 'a -> bool) ->
string ->
(Format.formatter -> 'a -> unit) ->
'a list ->
'a list ->
unit Tezos_base.TzPervasives.tzresult Lwt.t
val assert_equal_list_opt :
loc:string ->
('a -> 'a -> bool) ->
string ->
(Format.formatter -> 'a -> unit) ->
'a list option ->
'a list option ->
unit Tezos_base.TzPervasives.tzresult Lwt.t
val equal_with_encoding :
loc:string ->
'a Data_encoding__V1.Encoding.t ->
'a ->
'a ->
unit Tezos_base.TzPervasives.tzresult Lwt.t
val not_equal_with_encoding :
loc:string ->
'a Data_encoding__V1.Encoding.t ->
'a ->
'a ->
unit Tezos_base.TzPervasives.tzresult Lwt.t