wip purpose sizeof

test/test.ml

@@ -71,3 +71,14 @@ let () =
   check_bad "\"foo\" ,";
   check_bad ", \"foo\"";
   ()
+
+let () =
+  let open Binary_formats.Withdraw_confirmation_ps in
+  let str64 = String.make 64 '0' in
+  let dummy_t =
+    { h_planchets= { hash= { hash= str64 } }; noreveal_index= 0_l }
+  in
+  let size' = Bin.size_of_value bin dummy_t |> Option.get in
+  assert (size = size');
+  assert (size = 76);
+  ()