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

strong BV test

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

11
tests/data/t_bv.ml
View file

@ -536,6 +536,14 @@ t ~name:(spf "line %d" __LINE__) (fun () ->
negate_self bv; negate_self bv;
assert_equal ~printer:(CCFormat.to_string ppli) [] (to_list bv); assert_equal ~printer:(CCFormat.to_string ppli) [] (to_list bv);
true) true)
;;
t ~name:(spf "line %d" __LINE__) (fun () ->
let v = empty () in
union_into ~into:v (of_list [ 9; 16 ]);
resize_minimize_memory v 9;
Internal_.__check_invariant v;
is_empty v)
module Op = struct module Op = struct
type t = type t =
@ -621,11 +629,14 @@ module Op = struct
[]); []);
[ [
1, return Clear; 1, return Clear;
1, return Clear_and_shrink;
1, return Negate; 1, return Negate;
1, return Filter_is_odd; 1, return Filter_is_odd;
(1, rand_list >|= fun l -> Inter l); (1, rand_list >|= fun l -> Inter l);
(1, rand_list >|= fun l -> Union l); (1, rand_list >|= fun l -> Union l);
(1, rand_list >|= fun l -> Diff l);
(1, 0 -- 100 >|= fun x -> Resize x); (1, 0 -- 100 >|= fun x -> Resize x);
(1, 0 -- 100 >|= fun x -> Resize_min_mem x);
]; ];
] ]