/*
* (C) 2015,2016 Jack Lloyd
*
* Botan is released under the Simplified BSD License (see license.txt)
*/

#include "fuzzers.h"
#include <botan/reducer.h>
#include <botan/internal/curve_nistp.h>

void fuzz(const uint8_t in[], size_t len)
   {
   if(len > 2*224/8)
      return;

   static const Botan::BigInt& prime = Botan::prime_p224();
   static const Botan::BigInt prime_2 = prime * prime;
   static Botan::Modular_Reducer prime_redc(prime);

   Botan::BigInt input = Botan::BigInt::decode(in, len);

   if(input < prime_2)
      {
      const Botan::BigInt ref = prime_redc.reduce(input);

      Botan::secure_vector<Botan::word> ws;
      Botan::redc_p224(input, ws);

      FUZZER_ASSERT_EQUAL(ref, input);
      }
   }