open CCRandom
module T = (val Containers_testlib.make ~__FILE__ ())
include T;;

q Q.(list small_int) (fun l -> l = [] || List.mem (run (pick_list l)) l);;

q
  Q.(pair small_int small_int)
  (fun (i, j) ->
    let len, n = 2 + min i j, max i j in
    let l = QCheck.Gen.generate1 (split_list n ~len) in
    match l with
    | None -> true
    | Some l -> l <> [] && List.for_all (fun x -> x > 0) l)
;;

t @@ fun () ->
let open Containers in
ignore (List.random_choose [ 1; 2; 3 ] (Random.get_state ()) : int);
true