From d22e6e5276796ecca8acb8dd5e940b0d175dd61e Mon Sep 17 00:00:00 2001 From: swrup Date: Fri, 6 Feb 2026 20:11:00 +0100 Subject: [PATCH] --- test/test.ml | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/test/test.ml b/test/test.ml index a08e89da..21803e30 100644 --- a/test/test.ml +++ b/test/test.ml @@ -110,13 +110,19 @@ let () = let () = let v = - "04000274VF2F65WWABKGZYHREQWAFTVPMWEK9EQYMCPP1E6CMC224XDDDBVM7NRMNDX3TETHTK5G7GPPPYGN08FEMSY6B7NGBE8AYMG5HWT2BXRSAHAWDWW5Y16YVGXJG0BCKW3X17EWEF8MNGFGJBKVWQV5WPT0R2QK82QXFHFVGP3HR1D8HF69JXBC22B62M4SFETRJNXRG2GXX03BETSNQW0X7BYTMFJX5JQH4B2KJMABB02RFSNNMND7CT7MSAX5SCZY5ZB9XS4ZDKA9AVTS11V790KXXBSFZSD3NNEHKB6RS99RJD3MDJE04G1Q83HR50N5NVBDW3HPJZKQS5SSG7R2R2F7K8P06HJ4YSQFF52GF3RZW22N4FRQ28KQ2JZMZ1GJS1KBNHNNMS1RW9DZQ3882Z5V0000000004002" + "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''); ()