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

~ test

Browse source
This commit is contained in:
swrup 2026-02-07 00:12:18 +01:00
parent fd522aa727
commit 5f9f872e9b
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
test/test.ml
View file

@ -115,12 +115,14 @@ let () =
let decode s = B32.decode s |> get_ok in let decode s = B32.decode s |> get_ok in
let v' = B32.encode (decode v) in let v' = B32.encode (decode v) 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 "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'); 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');
assert (v' = v''); assert (v' = v'');
() ()