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

test: add regression test for #256

Browse source
This commit is contained in:
Simon Cruanes 2019-04-13 03:10:29 -05:00
parent a325600ccb
commit 1654f8c826
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/core/CCList.ml
View file

@ -328,6 +328,18 @@ let init len f =
init 1000 (fun x->x) = 0--999 init 1000 (fun x->x) = 0--999
*) *)
(* see: #256 *)
(*$R
let r = ref [] in
ignore (CCList.init 5 (fun x -> r := x :: !r; ()));
assert_equal ~printer:Q.Print.(list int) (List.rev !r) [0;1;2;3;4]
*)
(*$R
let r = ref [] in
ignore (CCList.init 200_000 (fun x -> r := x :: !r; ()));
assert_equal ~printer:Q.Print.(list int) (List.rev !r) (0--(200_000-1))
*)
let rec compare f l1 l2 = match l1, l2 with let rec compare f l1 l2 = match l1, l2 with
| [], [] -> 0 | [], [] -> 0
| _, [] -> 1 | _, [] -> 1