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

test BV.init

Browse source
This commit is contained in:
Simon Cruanes 2022-07-04 22:15:13 -04:00
parent e15971934d
commit feaa8ecf7d
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
tests/data/t_bv.ml
View file

@ -519,6 +519,23 @@ t ~name:(spf "line %d" __LINE__) (fun () ->
true)
;;
t ~name:(spf "line %d" __LINE__) (fun () ->
let l = [ 1; 3; 10; 29; 55 ] in
let v = init 120 (fun i -> List.mem i l) in
assert_equal ~printer:(CCFormat.to_string ppli) l (to_sorted_list v);
true)
;;
q ~name:(spf "line %d" __LINE__)
Q.(small_list small_nat)
(fun l ->
let l = CCList.sort_uniq ~cmp:CCInt.compare l in
let max = 1 + List.fold_left max 0 l in
let v = init max (fun i -> List.mem i l) in
assert_equal ~printer:(CCFormat.to_string ppli) l (to_sorted_list v);
true)
;;
t ~name:(spf "line %d" __LINE__) (fun () ->
let bv = empty () in
flip bv 0;