package bastet
Module Bastet.Test
module type TEST = sig ... endThese helpers provide generative tests for implementations.
module type ARBITRARY = sig ... endmodule type ARBITRARY_A = sig ... endmodule type QUICKCHECK = sig ... endmodule Array
(T : TEST)
(Q : QUICKCHECK with type t = T.test)
(A :
ARBITRARY with type t = int array and type 'a arbitrary = 'a Q.arbitrary)
(AA :
ARBITRARY_A
with type 'a t = 'a array
and type 'a arbitrary = 'a Q.arbitrary) :
sig ... endmodule Float
(E : Interface.EQ with type t = float)
(T : TEST)
(Q : QUICKCHECK with type t = T.test)
(A : ARBITRARY with type t = float and type 'a arbitrary = 'a Q.arbitrary) :
sig ... endmodule List
(T : TEST)
(Q : QUICKCHECK with type t = T.test)
(A : ARBITRARY with type t = int list and type 'a arbitrary = 'a Q.arbitrary)
(AA :
ARBITRARY_A with type 'a t = 'a list and type 'a arbitrary = 'a Q.arbitrary) :
sig ... endmodule Option
(T : TEST)
(Q : QUICKCHECK with type t = T.test)
(A :
ARBITRARY with type t = int option and type 'a arbitrary = 'a Q.arbitrary)
(AA :
ARBITRARY_A
with type 'a t = 'a option
and type 'a arbitrary = 'a Q.arbitrary) :
sig ... end