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

Browse source
This commit is contained in:
swrup 2026-02-28 02:40:47 +01:00
parent da29f5bae3
commit 7d4da5210e
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
test/test_crypto.ml
View file

@ -144,12 +144,12 @@ let () =
|> RsaPublicKey.to_octets |> RsaPublicKey.to_octets
= (rsa_pub |> B32.decode |> Result.get_ok)); = (rsa_pub |> B32.decode |> Result.get_ok));
let h_pub = Result.get_ok @@ DenominationHash.of_b32 h_pub in
let h_pub' = let h_pub' =
DenominationHash.to_b32 DenominationHash.hash_of_rsa (Result.get_ok @@ RsaPublicKey.of_b32 rsa_pub)
(DenominationHash.hash_of_rsa
(Result.get_ok @@ RsaPublicKey.of_b32 rsa_pub))
in in
Fmt.pr "--@."; Fmt.pr "@.%s@." h_pub; Fmt.pr "@.%s@." h_pub' assert (h_pub = h_pub');
()
in in
f test1; f test2 f test1; f test2