simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-08 04:05:30 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

doc

Browse source
This commit is contained in:
Simon Cruanes 2013-09-29 18:38:51 +02:00
parent a2df859a36
commit 77233c3750
2 changed files with 2 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
qCheck.ml
View file

@ -91,9 +91,6 @@ module Arbitrary = struct
let among l = among_array (Array.of_list l) let among l = among_array (Array.of_list l)
let among_tbl k =
failwith "among_tbl: not implemented yet"
let choose l = let choose l =
assert (l <> []); assert (l <> []);
let a = Array.of_list l in let a = Array.of_list l in

7
qCheck.mli
View file

@ -59,10 +59,10 @@ module Arbitrary : sig
(** A generator of arbitrary values of type 'a *) (** A generator of arbitrary values of type 'a *)
val int : int -> int t val int : int -> int t
(** Any integer *) (** Any integer between 0 (inclusive) and the given higher bound (exclusive) *)
val int_range : start:int -> stop:int -> int t val int_range : start:int -> stop:int -> int t
(* Integer range *) (* Integer range start .. stop-1 *)
val small_int : int t val small_int : int t
(** Ints lower than 100 *) (** Ints lower than 100 *)
@ -109,9 +109,6 @@ module Arbitrary : sig
val among_array : 'a array -> 'a t val among_array : 'a array -> 'a t
(** Choose in the array *) (** Choose in the array *)
val among_tbl : ('k, 'v) Hashtbl.t -> 'v t
(** Choose in the table *)
val choose : 'a t list -> 'a t val choose : 'a t list -> 'a t
(** Choice among combinations *) (** Choice among combinations *)