module Test = (val Containers_testlib.make ~__FILE__ ())
open Test
open CCLazy_list;;

q Q.(list int) (fun l -> length (of_list l) = List.length l);;

eq [ 2; 4; 6 ]
  (of_list [ 1; 2; 3; 4; 5; 6; 7 ]
  |> filter ~f:(fun x -> x mod 2 = 0)
  |> to_list)
;;

eq [ 2; 4; 6 ]
  (of_gen Gen.(1 -- max_int)
  |> filter ~f:(fun x -> x mod 2 = 0)
  |> take 3 |> to_list)
;;

q
  Q.(pair (list int) (list int))
  (fun (l1, l2) ->
    length (append (of_list l1) (of_list l2)) = List.length l1 + List.length l2)
;;

eq [ 1 ] (default ~default:(return 1) empty |> to_list);;
q Q.(list int) (fun l -> l = (Gen.of_list l |> of_gen |> to_list));;
q Q.(list int) (fun l -> l = to_list (of_list l));;
q Q.(list int) (fun l -> l = (of_list l |> to_gen |> Gen.to_list))