swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

refacto: Purpose.make_bin

Browse source
This commit is contained in:
swrup 2025-10-07 23:45:07 +02:00
parent 378e9208a2
commit af8df241b2
2 changed files with 32 additions and 52 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test/test.ml
View file

@ -76,12 +76,12 @@ 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 size' = Bin.size_of_value bin dummy_t |> Option.get in
assert (size = size');
let size = Bin.size_of_value bin dummy_t |> Option.get in
assert (size = 76);
(* for cmp test with signatures.c output *)
(*
let raw_str = Bin.to_string bin dummy_t in
Printf.printf "%s" raw_str;
*)
()