18 lines
366 B
OCaml
18 lines
366 B
OCaml
|
open OUnit2
|
||
|
|
|
||
|
|
let () =
|
||
|
|
Format.printf "accel: %a\n%!"
|
||
|
|
(fun ppf -> List.iter @@ fun x ->
|
||
|
|
Format.fprintf ppf "%s " @@
|
||
|
|
match x with `XOR -> "XOR" | `AES -> "AES" | `GHASH -> "GHASH")
|
||
|
|
Mirage_crypto.accelerated
|
||
|
|
|
||
|
|
let suite =
|
||
|
|
"All" >::: [
|
||
|
|
"Basic" >::: Test_base.suite;
|
||
|
|
"Cipher" >::: Test_cipher.suite;
|
||
|
|
]
|
||
|
|
|
||
|
|
let () =
|
||
|
|
run_test_tt_main suite
|