added worker teardown

Author: InfiniteSwerve

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

@@ -59,6 +59,11 @@ let test_empty_block_load env () =
     ~msg:"level loaded block is equal to saved block" ~expected:block
     ~actual:retrieved_block;
 
+  (* TODO: Fail the switch and capture the exception instead *)
+  let (Deku_block_storage.Block_storage.Storage { worker; _ }) =
+    block_storage
+  in
+  Parallel.Worker.teardown worker
   let (Deku_block_storage.Block_storage.Storage { worker; _ }) =
     block_storage
   in