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

wip debug

Browse source
This commit is contained in:
swrup 2026-02-06 18:30:32 +01:00
parent d9b71e24cd
commit d00cab5ecc
4 changed files with 76 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

20
test/test.ml
View file

@ -106,5 +106,23 @@ let () =
Printf.printf "%s" raw_str;
*)
()
*)
let () =
let v =
"04000274VF2F65WWABKGZYHREQWAFTVPMWEK9EQYMCPP1E6CMC224XDDDBVM7NRMNDX3TETHTK5G7GPPPYGN08FEMSY6B7NGBE8AYMG5HWT2BXRSAHAWDWW5Y16YVGXJG0BCKW3X17EWEF8MNGFGJBKVWQV5WPT0R2QK82QXFHFVGP3HR1D8HF69JXBC22B62M4SFETRJNXRG2GXX03BETSNQW0X7BYTMFJX5JQH4B2KJMABB02RFSNNMND7CT7MSAX5SCZY5ZB9XS4ZDKA9AVTS11V790KXXBSFZSD3NNEHKB6RS99RJD3MDJE04G1Q83HR50N5NVBDW3HPJZKQS5SSG7R2R2F7K8P06HJ4YSQFF52GF3RZW22N4FRQ28KQ2JZMZ1GJS1KBNHNNMS1RW9DZQ3882Z5V0000000004002==="
in
let decode s = B32.decode s |> get_ok in
let v' = B32.encode (decode v) in
let v'' = B32.encode (decode v') in
(*
Fmt.pr "v : %s@." v;
Fmt.pr "v' : %s@." v';
Fmt.pr "v'': %s@." v'';
Fmt.pr "len v : %d@." (String.length v);
Fmt.pr "len v' : %d@." (String.length v');
Fmt.pr "len v'': %d@." (String.length v'');
*)
assert (v = v');
assert (v' = v'');
()