The unpac monorepo manager self-hosting as a monorepo using unpac
Add failing test
authored by
Reynir Björnsson
and committed by
dinosaure
d1d15641
598c040d
+8
+8
vendor/opam/base64/test/test.ml
+8
vendor/opam/base64/test/test.ml
···
184
184
Alcotest.(check (option string)) (sprintf "decode %S" input) res' res)
185
185
nocrypto_tests
186
186
187
+
let test_reynir () =
188
+
let r = "Hello, World!" in
189
+
let a = Base64.(alphabet default_alphabet) in
190
+
let () = Array.iteri (fun i _ -> a.(i) <- int_of_char 'A') a in
191
+
Alcotest.(check string) "decode encode after mutating default_alphabet"
192
+
r Base64.(decode_exn (encode_string r))
193
+
187
194
exception Malformed
188
195
189
196
exception Wrong_padding
···
309
316
("Cfcs test vectors", `Quick, test_cfcs);
310
317
("PHP test vectors", `Quick, test_php);
311
318
("Nocrypto test vectors", `Quick, test_nocrypto);
319
+
("Reynir test vectors", `Quick, test_reynir);
312
320
]
313
321
314
322
let () =