mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-09 12:45:34 -05:00
21 lines
715 B
OCaml
21 lines
715 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));;
|