simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-09 04:35:29 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

Add test for diff

Browse source
This commit is contained in:
Leonid Rozenberg 2017-04-19 15:27:35 -04:00
parent 0b53ed01a3
commit 84a537efbd
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/data/CCBV.ml
View file

@ -451,6 +451,14 @@ let diff in_ not_in =
diff_into ~into not_in; diff_into ~into not_in;
into into
(*$T
diff (of_list [1;2;3]) (of_list [1;2;3]) |> to_list = [];
diff (of_list [1;2;3]) (of_list [1;2;3;4]) |> to_list = [];
diff (of_list [1;2;3;4]) (of_list [1;2;3]) |> to_list = [4];
diff (of_list [1;2;3]) (of_list [1;2;3;400]) |> to_list = [];
diff (of_list [1;2;3;400]) (of_list [1;2;3]) |> to_list = [400];
*)
let select bv arr = let select bv arr =
let l = ref [] in let l = ref [] in
begin try begin try