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

test: compat 4.03

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

8
tests/data/t_bv.ml
View file

@ -39,7 +39,7 @@ q (Q.list Q.small_int) (fun l ->
q Q.small_int (fun size -> create ~size true |> cardinal = size);;
q Q.small_int (fun size ->
create ~size true |> to_sorted_list = List.init size CCFun.id)
create ~size true |> to_sorted_list = CCList.init size CCFun.id)
;;
t ~name:(spf "line %d" __LINE__) @@ fun () ->
@ -225,7 +225,7 @@ q
let l1 = bv |> to_sorted_list in
let l2 =
CCList.init (length bv) (get bv)
|> List.mapi (fun i b -> i, b)
|> CCList.mapi (fun i b -> i, b)
|> CCList.filter_map (function
| i, true -> Some i
| _ -> None)
@ -629,7 +629,7 @@ module Op = struct
(* random list of integers *)
let rand_list =
0 -- 200 >>= fun n st ->
List.init n (fun i ->
CCList.init n (fun i ->
if bool st then
Some i
else
@ -762,7 +762,7 @@ module Ref_ = struct
| Filter_is_odd -> self.set <- Intset.filter (fun x -> x mod 2 = 1) self.set
| Negate ->
let l' =
List.init self.size (fun x -> x)
CCList.init self.size (fun x -> x)
|> List.filter (fun x -> not (Intset.mem x self.set))
in
self.set <- Intset.of_list l'