1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
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 ];
]
|
