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

more tests

Browse source
This commit is contained in:
Simon Cruanes 2023-07-13 12:23:52 -04:00
parent 20240a6190
commit 6c0063f9ac
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
test/effect-based/t_fork_join.ml
View file

@ -209,7 +209,7 @@ module Evaluator = struct
( clamp_if_base 3, ( clamp_if_base 3,
let+ f = gen_fun let+ f = gen_fun
and+ csize = 1 -- 16 and+ csize = 1 -- 16
and+ l = list_size (1 -- 290) (gen 1) and+ l = list_size (0 -- 290) (gen 1)
and+ r = oneofl [ R_add; R_max; R_add_shift ] in and+ r = oneofl [ R_add; R_max; R_add_shift ] in
Map_arr (csize, f, l, r) ); Map_arr (csize, f, l, r) );
( clamp_if_base 2, ( clamp_if_base 2,