test/test.ml

@@ -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;
+
   ()