The unpac monorepo manager self-hosting as a monorepo using unpac
0
fork

Configure Feed

Select the types of activity you want to include in your feed.

Add failing test

authored by

Reynir Björnsson and committed by
dinosaure
d1d15641 598c040d

+8
+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 () =