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-10 17:14:02 +01:00
parent 1427d6ff9b
commit 76945af469
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test/crypto.ml
View file

@ -12,6 +12,9 @@ let () =
let () =
let input = "91JPRV3F5GG4EKJNDSJQ8" in
let expected =
"D0R24RZ1TPASVQ2NY56CT8AJDYZE9ZGDB0GVZ05E9D4YGZQW2RC5YFPQ0Q86EPW836DY7VYQTNFFJT3ZR2K508F4JVS5JNJKYN2MMFR"
in
let output =
input
|> B32.decode
@ -20,9 +23,6 @@ let () =
|> Hash.H64.to_octets
|> B32.encode
in
let expected =
"D0R24RZ1TPASVQ2NY56CT8AJDYZE9ZGDB0GVZ05E9D4YGZQW2RC5YFPQ0Q86EPW836DY7VYQTNFFJT3ZR2K508F4JVS5JNJKYN2MMFR"
in
assert (output = expected);
()