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

JJ: Description from the destination commit:

Browse source 
more module renaming

JJ: Description from source commit:
test binary_formats
This commit is contained in:
swrup 2025-10-07 15:08:35 +02:00
parent e4b9fb473a
commit 1112106eb2
7 changed files with 114 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

13
test/test.ml
View file

@ -18,9 +18,9 @@ let () =
check_bad Timestamp.jsont {|{"t_s": "123456780"}|};
check_bad Timestamp.jsont {|{"t_s": "agagou"}|};
check Denomination_key.jsont
check DenominationKey.jsont
{|{"cipher": "RSA", "age_mask": 18, "rsa_pub": "agagouh"}|};
check Denomination_key.jsont
check DenominationKey.jsont
{|{"cipher": "CS", "age_mask": 18, "cs_pub": "ouhagag"}|};
()
@ -73,10 +73,15 @@ let () =
()
let () =
let open Binary_formats.WithdrawConfirmationPs in
let str64 = String.make 64 '0' in
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');
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;
()