swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2025-11-11 02:07:51 +01:00
parent aa2ff7b2f0
commit 2f3113f55d
11742 changed files with 1223940 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

26
unikernel/duniverse/mirage-crypto/tests/test_base.ml Normal file
View file

@ -0,0 +1,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 ];
]