mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-06 03:05:28 -05:00
28 lines
752 B
OCaml
28 lines
752 B
OCaml
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))
|