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

test: regression test for stack overflow in CCpool

Browse source
This commit is contained in:
Simon Cruanes 2020-05-23 17:44:32 -04:00
parent 685efeae28
commit 54099f10d5
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/threads/CCPool.ml
View file

@ -546,6 +546,18 @@ module Make(P : PARAM) = struct
OUnit.assert_equal expected (Fut.get l') OUnit.assert_equal expected (Fut.get l')
*) *)
(*$R
let l = CCList.(1 -- 100_000) in
let l' = l
|> List.map
(fun x -> Fut.make (fun () -> 1))
|> Fut.sequence_l
|> Fut.map (List.fold_left (+) 0)
in
let expected = 100_000 in
OUnit.assert_equal expected (Fut.get l')
*)
(*$R (*$R
let l = CCList.(1 -- 50) in let l = CCList.(1 -- 50) in
let l' = l let l' = l