added parallelism environment

Author: InfiniteSwerve

deku-p/src/core/block_storage/tests/block_storage_tests.ml

@@ -33,6 +33,7 @@ let make_block_storage env sw =
 
 let test_empty_block_load env () =
   try
+    Parallel.Pool.run ~env ~domains:4 @@ fun () ->
     Eio.Switch.run @@ fun sw ->
     let block_storage = make_block_storage env sw in
     let (Block { hash; _ } as block) = block ~default_block_size:0 in
@@ -43,7 +44,12 @@ let test_empty_block_load env () =
           block_storage
       with
       | Some json ->
-          Data_encoding.Json.destruct Deku_consensus.Block.encoding json
+          Format.eprintf "done!\n%!";
+          let b =
+            Data_encoding.Json.destruct Deku_consensus.Block.encoding json
+          in
+          Format.eprintf "done!\n%!";
+          b
       | None -> Genesis.block
     in
     Alcotest.(check' block_testable)