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

cleanup and more tests in CCHeap

Browse source
This commit is contained in:
Simon Cruanes 2016-07-04 23:25:55 +02:00
parent c3b1d0db38
commit 13f6660373
2 changed files with 15 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/core/CCHeap.ml
View file

@ -64,6 +64,19 @@ end
) )
*) *)
(* test filter *)
(*$QR & ~count:30
Q.(list_of_size Gen.(return 1_000) int) (fun l ->
(* put elements into a heap *)
let h = H.of_seq (Sequence.of_list l) in
let h = H.filter (fun x->x mod 2=0) h in
OUnit.assert_bool "all odd"
(H.to_seq h |> Sequence.for_all (fun x -> x mod 2 = 0));
let l' = extract_list h in
is_sorted l'
)
*)
module type S = sig module type S = sig
type elt type elt
type t type t
@ -114,7 +127,7 @@ module type S = sig
(** Number of elements (linear complexity) *) (** Number of elements (linear complexity) *)
(** {2 Conversions} (** {2 Conversions}
The interface of [of_gen], [of_seq], [of_klist] The interface of [of_gen], [of_seq], [of_klist]
has changed @since 0.16 (the old signatures has changed @since 0.16 (the old signatures
are now [add_seq], [add_gen], [add_klist]) *) are now [add_seq], [add_gen], [add_klist]) *)

2
src/core/CCHeap.mli
View file

@ -65,7 +65,7 @@ module type S = sig
(** Number of elements (linear complexity) *) (** Number of elements (linear complexity) *)
(** {2 Conversions} (** {2 Conversions}
The interface of [of_gen], [of_seq], [of_klist] The interface of [of_gen], [of_seq], [of_klist]
has changed @since 0.16 (the old signatures has changed @since 0.16 (the old signatures
are now [add_seq], [add_gen], [add_klist]) *) are now [add_seq], [add_gen], [add_klist]) *)