File: test_symmetric_runner.ml

package info (click to toggle)
ocaml-mirage-crypto 2.0.2-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 12,524 kB
  • sloc: ansic: 91,925; ml: 9,700; makefile: 5
file content (17 lines) | stat: -rw-r--r-- 366 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
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