Add Random.self_init to stress test domains

ocaml-multicore · Dec 24, 2023 · aa10637 · aa10637
1 parent 529e3e2
commit aa10637
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/test/Multicore_magic_test.ml b/test/Multicore_magic_test.ml
@@ -119,6 +119,8 @@ let test_instantaneous_domain_index () =
       in
 
       let domain () =
+        Random.self_init ();
+
         Atomic.incr num_started;
         (* [Domain.DLS] is not thread-safe so it might be necessary to make sure
            we get the index before spawning threads: *)
@@ -136,6 +138,8 @@ let test_instantaneous_domain_index () =
         Atomic.incr num_exited
       in
 
+      Random.self_init ();
+
       let threads =
         Array.init n_domains @@ fun _ ->
         ()