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

add test

Browse source
This commit is contained in:
Simon Cruanes 2017-03-27 21:05:37 +02:00
parent 7e8c7235bc
commit e6221d7e50
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/data/CCBV.ml
View file

@ -378,6 +378,13 @@ type 'a sequence = ('a -> unit) -> unit
let to_seq bv k = iter_true bv k let to_seq bv k = iter_true bv k
(*$Q
Q.(small_int) (fun i -> \
let i = max 1 i in \
let bv = create ~size:i true in \
i = (to_seq bv |> Sequence.length))
*)
let of_seq seq = let of_seq seq =
let l = ref [] and maxi = ref 0 in let l = ref [] and maxi = ref 0 in
seq (fun x -> l := x :: !l; maxi := max !maxi x); seq (fun x -> l := x :: !l; maxi := max !maxi x);