Run test in a child domain

ocaml-multicore · Aug 7, 2024 · 182a27f · 182a27f
1 parent 73519c1
commit 182a27f
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/domain/dls_test.ml b/src/domain/dls_test.ml
@@ -16,8 +16,9 @@ let rec interp sut cs = match cs with
 let run n =
   for i = 1 to n do
     if i mod 100 = 0 then Printf.printf "#%!";
-    let sut = init_sut () in
-    interp sut cmds
+     Domain.spawn (fun () ->
+        let sut = init_sut () in
+        interp sut cmds) |> Domain.join
   done
 
-let _ = run 50_000
+let _ = run 10_000