adds 200k block load by hash test

fixup: removed extra teardown

Author: InfiniteSwerve

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

@@ -152,7 +152,7 @@ let test_200k_block_load env () =
 let test_200k_block_load env () =
   Eio.Switch.run @@ fun sw ->
   let block_storage = make_block_storage env sw in
-  let (Block { hash; _ } as block) = block ~default_block_size:200_000 in
+  let (Block { hash; level; _ } as block) = block ~default_block_size:200_000 in
   Block_storage.save_block ~block block_storage;
   let retrieved_block =
     match Block_storage.find_block_by_hash ~block_hash:hash block_storage with
@@ -163,6 +163,16 @@ let test_200k_block_load env () =
     ~msg:"hash loaded block is equal to saved block" ~expected:block
     ~actual:retrieved_block;
 
+  let retrieved_block =
+    match Block_storage.find_block_by_level ~level block_storage with
+    | Some json -> Block.t_of_yojson json
+    | None -> Genesis.block
+  in
+
+  Alcotest.(check' block_testable)
+    ~msg:"level loaded block is equal to saved block" ~expected:block
+    ~actual:retrieved_block;
+
   (* TODO: Fail the switch and capture the exception instead *)
   let (Block_storage.Storage { worker; _ }) = block_storage in
   Parallel.Worker.teardown worker