test/test.ml

@@ -76,6 +76,8 @@ let () =
   let open Binary_formats.WithdrawConfirmationPS in
   let str64 = String.init 64 (fun i -> Char.unsafe_chr (i + 1)) in
   let dummy_t = { h_planchets= { v= { v= str64 } }; noreveal_index= 0_l } in
+  let bin = Lazy.force bin in
+  let size = Lazy.force size in
   let size' = Bin.size_of_value bin dummy_t |> Option.get in
   assert (size = size');
   assert (size = 76);
@@ -83,5 +85,5 @@ let () =
   (* for cmp test with signatures.c output
   let raw_str = Bin.to_string bin dummy_t in
   Printf.printf "%s" raw_str;
-   *)
+  *)
   ()