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

add test

Browse source
This commit is contained in:
Simon Cruanes 2023-06-14 11:34:44 -04:00
parent dd5a177a5f
commit 826d1f15c8
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
test/t_futs1.ml
View file

@ -109,3 +109,13 @@ let () =
in
ignore (Fut.wait_block_exn (Fut.join_list [ fut1; fut2 ]) : _ list);
assert (Atomic.get n = 99 * 100)
let () =
let f1 = mk_ret_delay 0.1 "foo" in
assert (
try
ignore (Fut.get_or_fail f1);
false
with Fut.Not_ready -> true);
ignore (Fut.wait_block f1);
assert (Fut.get_or_fail f1 = Ok "foo")