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

fix tests for sequence 1.0

Browse source
This commit is contained in:
Simon Cruanes 2018-01-17 20:04:03 -06:00
parent ea4de9a618
commit bc622f636a
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/data/CCBV.ml
View file

@ -257,17 +257,21 @@ let iter bv f =
[30; 100; 255; 256;10_000] [30; 100; 255; 256;10_000]
*) *)
(*$inject
let seq_zip s k = s (fun x y -> k(x,y))
*)
(*$= & ~printer:Q.Print.(list (pair int bool)) (*$= & ~printer:Q.Print.(list (pair int bool))
[] (iter (create ~size:0 false) |> Sequence.zip |> Sequence.to_list) [] (iter (create ~size:0 false) |> seq_zip |> Sequence.to_list)
[0, false; 1, true; 2, false] \ [0, false; 1, true; 2, false] \
(iter (let bv = create ~size:3 false in set bv 1; bv) |> Sequence.zip |> Sequence.to_list) (iter (let bv = create ~size:3 false in set bv 1; bv) |> seq_zip |> Sequence.to_list)
*) *)
(*$Q (*$Q
Q.(small_int) (fun n -> \ Q.(small_int) (fun n -> \
assert (n >= 0); \ assert (n >= 0); \
let bv = create ~size:n true in \ let bv = create ~size:n true in \
let l = iter bv |> Sequence.zip |> Sequence.to_list in \ let l = iter bv |> seq_zip |> Sequence.to_list in \
List.length l = n && List.for_all (fun (_,b) -> b) l) List.length l = n && List.for_all (fun (_,b) -> b) l)
*) *)