open OUnit2
open 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 ] ]