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

+ less failwith

Browse source
This commit is contained in:
swrup 2025-12-07 06:29:06 +01:00
parent 588b38d66f
commit f8ef92b67e
5 changed files with 37 additions and 48 deletions
Download patch file Download diff file Expand all files Collapse all files

7
test/test.ml
View file

@ -1,22 +1,21 @@
let () = Mirage_crypto_rng_unix.use_default ()
let get_ok = function Error e -> failwith e | Ok v -> v
let () =
let priv = Mirage_crypto_pk.Rsa.generate ~bits:2048 () in
let pub = Mirage_crypto_pk.Rsa.pub_of_priv priv in
let () =
let open Crypto.RsaPrivateKey in
let priv' = priv |> to_octets |> of_octets in
let priv' = priv |> to_octets |> of_octets |> get_ok in
assert (to_octets priv = to_octets priv')
in
let () =
let open Crypto.RsaPublicKey in
let pub' = pub |> to_octets |> of_octets in
let pub' = pub |> to_octets |> of_octets |> get_ok in
assert (to_octets pub = to_octets pub')
in
()
let get_ok = function Error e -> failwith e | Ok v -> v
let () =
let open Api in
let check jsont s =