simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2026-01-29 12:24:50 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

CCImmutArray: replace Fun.id with (fun b -> b) in tests

Browse source
This commit is contained in:
Kye Shi 2020-12-16 11:24:17 -08:00
parent 6f791a299e
commit bc73bfd8ea
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/data/CCImmutArray.ml
View file

@ -101,13 +101,13 @@ let exists p a =
*)
(*$Q
Q.(list bool) (fun l -> let a = of_list l in not @@ exists Fun.id a = for_all not a)
Q.(list bool) (fun l -> let a = of_list l in not @@ for_all Fun.id a = exists not a)
Q.(list bool) (fun l -> let a = of_list l in not @@ exists (fun b -> b) a = for_all not a)
Q.(list bool) (fun l -> let a = of_list l in not @@ for_all (fun b -> b) a = exists not a)
*)
(*$Q
Q.(list bool) (fun l -> exists Fun.id (of_list l) = List.fold_left (||) false l)
Q.(list bool) (fun l -> for_all Fun.id (of_list l) = List.fold_left (&&) true l)
Q.(list bool) (fun l -> exists (fun b -> b) (of_list l) = List.fold_left (||) false l)
Q.(list bool) (fun l -> for_all (fun b -> b) (of_list l) = List.fold_left (&&) true l)
*)
(** {2 Conversions} *)