From 6f745c210f4c5f2fec6a22fb89c0aa30a5dd16ce Mon Sep 17 00:00:00 2001 From: swrup Date: Tue, 7 Oct 2025 12:49:34 +0200 Subject: [PATCH] --- test/test.ml | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/test/test.ml b/test/test.ml index dac934bc..bc491f9b 100644 --- a/test/test.ml +++ b/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); + ()