26 lines
539 B
OCaml
26 lines
539 B
OCaml
open OUnit2
|
|
|
|
open Mirage_crypto
|
|
|
|
open Test_common
|
|
|
|
(* Xor *)
|
|
|
|
let xor_cases =
|
|
cases_of (f2_eq ~msg:"xor" Uncommon.xor) [
|
|
"00 01 02 03 04 05 06 07 08 09 0a 0b 0c" ,
|
|
"0c 0b 0a 09 08 07 06 05 04 03 02 01 00" ,
|
|
"0c 0a 08 0a 0c 02 00 02 0c 0a 08 0a 0c" ;
|
|
|
|
"00 01 02 03 04 05 06 07 08 09 0a 0b 0c 0d 0e 0f" ,
|
|
"0f 0e 0d 0c 0b 0a 09 08 07 06 05 04 03 02 01 00" ,
|
|
"0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f" ;
|
|
|
|
"00", "00", "00" ;
|
|
|
|
"", "", "" ;
|
|
]
|
|
|
|
let suite = [
|
|
"XOR" >::: [ "example" >::: xor_cases ];
|
|
]
|