diff --git a/test/test.ml b/test/test.ml index c9af9bd5..bd375ea8 100644 --- a/test/test.ml +++ b/test/test.ml @@ -108,3 +108,10 @@ let () = List.iter round_trip s_l; () + +let () = + let rsa_pub = "040000Y4J0J917YF81MQP5668F5FXCT29FDSYC5DRXG7KEZ7HKX5P4V0EZDRWC3NMX60WC13TPJN0BABH9XXMGHN8EGZD25Z47485QD7WN0BWWQ7XNB3391RGGADFFJEQDF137CP7AAEF2FSCK2ZYM89D7K8MA8D3TB3DCCGA55TZ6K63PAJ56ZPHRWDD9QKGRJ2YMDHXA8D2VBH4B9WBVSNH7JSHM1NBZDH2751YNXE25SJBDEH4AQCB61D99VE4EMSX9W6Y49BA1FCZ46CA3QGC4642SP4S5SRGCS02CBT3Z3WSX4B6RYNDPHQ21PCTG85M12ZFBEBXD382JK0ACM6KQJ56S8318E8YPD1F7DXE52S53ACC1T03DBXBBD4A2T32XMSZ9SHXPJBBGNNR9DD3NQGT3SH04002" in + let h_pub = " + + Fmt.epr "h_pub: %s@." + (B32.encode @@ Hash.DenominationHash.to_octets h_pub);