Don't exit while a domain is still running

This causes crashes in cleanup-at-exit mode (c=1) and could be a problem under Windows too.
ocaml · Jan 19, 2022 · 78fd956 · 78fd956
1 parent f469fc5
commit 78fd956
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/testsuite/tests/parallel/poll.ml b/testsuite/tests/parallel/poll.ml
@@ -5,10 +5,15 @@ include unix
 ** native
 *)
 
+let continue = Atomic.make true
+
 let rec loop () =
-  loop ()
+  if Atomic.get continue then loop ()
 
 let _ =
-  ignore (Domain.spawn loop);
+  let d = Domain.spawn loop in
+  Unix.sleepf 0.1;
   Gc.full_major();
+  Atomic.set continue false;
+  Domain.join d;
   print_endline "OK"