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

update tests

Browse source
This commit is contained in:
swrup 2026-03-21 00:58:15 +01:00 • committed by Swrup
parent 176c7cfa2b
commit df02bf0f48
5 changed files with 199 additions and 214 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test/validate_response.ml
View file

@ -1,4 +1,5 @@
open Syntax
open Hash
let keys content =
let open Api in
@ -27,7 +28,7 @@ let keys content =
let open Signatures.MasterWireFee in
verify v.master_public_key sig_
{
h_wire_method= Hash.Cstring.H64.hash wire_method;
h_wire_method= H64_cstring.hash wire_method;
start_date;
end_date;
wire_fee;
@ -84,7 +85,7 @@ let keys content =
AuditorKeys.
{ auditor_pub; auditor_url; auditor_name= _; denomination_keys }
->
let auditor_url_hash = Hash.H64.hash auditor_url in
let auditor_url_hash = H64_cstring.hash auditor_url in
denomination_keys
|> List.map
(fun AuditorDenominationKey.{ denom_pub_h; auditor_sig } ->