/*=========================================================================
 *
 *  Copyright NumFOCUS
 *
 *  Licensed under the Apache License, Version 2.0 (the "License");
 *  you may not use this file except in compliance with the License.
 *  You may obtain a copy of the License at
 *
 *         https://www.apache.org/licenses/LICENSE-2.0.txt
 *
 *  Unless required by applicable law or agreed to in writing, software
 *  distributed under the License is distributed on an "AS IS" BASIS,
 *  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 *  See the License for the specific language governing permissions and
 *  limitations under the License.
 *
 *=========================================================================*/


#include "itkRealFFTTest.h"


// Test FFT using VNL Libraries. The test is performed for two 3D
// arrays, one of them having the same dimension(4,4,4) and the other
// having different dimensions (3,4,5).  Images are created with
// different dimensions in the test function based on the second
// template argument and the size of these dimensions are taken from
// the array.  The data types used are float and double.
int
itkVnlRealFFTTest(int, char *[])
{
  using ImageF1 = itk::Image<float, 1>;
  using ImageCF1 = itk::Image<std::complex<float>, 1>;
  using ImageF2 = itk::Image<float, 2>;
  using ImageCF2 = itk::Image<std::complex<float>, 2>;
  using ImageF3 = itk::Image<float, 3>;
  using ImageCF3 = itk::Image<std::complex<float>, 3>;
  using ImageF4 = itk::Image<float, 4>;
  using ImageCF4 = itk::Image<std::complex<float>, 4>;

  using ImageD1 = itk::Image<double, 1>;
  using ImageCD1 = itk::Image<std::complex<double>, 1>;
  using ImageD2 = itk::Image<double, 2>;
  using ImageCD2 = itk::Image<std::complex<double>, 2>;
  using ImageD3 = itk::Image<double, 3>;
  using ImageCD3 = itk::Image<std::complex<double>, 3>;

  unsigned int SizeOfDimensions1[] = { 4, 4, 4, 4 };
  unsigned int SizeOfDimensions2[] = { 3, 5, 4 };
  unsigned int SizeOfDimensions3[] = { 7, 6, 4 }; // Should fail
                                                  // (illegal prime factor)
  int rval = 0;
  std::cerr << "Vnl float,1 (4,4,4)" << std::endl;
  if ((test_fft<float,
                1,
                itk::VnlRealToHalfHermitianForwardFFTImageFilter<ImageF1>,
                itk::VnlHalfHermitianToRealInverseFFTImageFilter<ImageCF1>>(SizeOfDimensions1)) != 0)
  {
    rval++;
    std::cerr << "--------------------- Failed!" << std::endl;
  }
  std::cerr << "Vnl float,2 (4,4,4)" << std::endl;
  if ((test_fft<float,
                2,
                itk::VnlRealToHalfHermitianForwardFFTImageFilter<ImageF2>,
                itk::VnlHalfHermitianToRealInverseFFTImageFilter<ImageCF2>>(SizeOfDimensions1)) != 0)
  {
    std::cerr << "--------------------- Failed!" << std::endl;
    rval++;
  }
  std::cerr << "Vnl float,3 (4,4,4)" << std::endl;
  if ((test_fft<float,
                3,
                itk::VnlRealToHalfHermitianForwardFFTImageFilter<ImageF3>,
                itk::VnlHalfHermitianToRealInverseFFTImageFilter<ImageCF3>>(SizeOfDimensions1)) != 0)
  {
    std::cerr << "--------------------- Failed!" << std::endl;
    rval++;
  }
  std::cerr << "Vnl float,4 (4,4,4)" << std::endl;
  if ((test_fft<float,
                4,
                itk::VnlRealToHalfHermitianForwardFFTImageFilter<ImageF4>,
                itk::VnlHalfHermitianToRealInverseFFTImageFilter<ImageCF4>>(SizeOfDimensions1)) != 0)
  {
    std::cerr << "--------------------- Failed!" << std::endl;
    rval++;
  }
  std::cerr << "Vnl double,1 (4,4,4)" << std::endl;
  if ((test_fft<double,
                1,
                itk::VnlRealToHalfHermitianForwardFFTImageFilter<ImageD1>,
                itk::VnlHalfHermitianToRealInverseFFTImageFilter<ImageCD1>>(SizeOfDimensions1)) != 0)
  {
    std::cerr << "--------------------- Failed!" << std::endl;
    rval++;
  }
  std::cerr << "Vnl double,2 (4,4,4)" << std::endl;
  if ((test_fft<double,
                2,
                itk::VnlRealToHalfHermitianForwardFFTImageFilter<ImageD2>,
                itk::VnlHalfHermitianToRealInverseFFTImageFilter<ImageCD2>>(SizeOfDimensions1)) != 0)
  {
    std::cerr << "--------------------- Failed!" << std::endl;
    rval++;
  }
  std::cerr << "Vnl double,3 (4,4,4)" << std::endl;
  if ((test_fft<double,
                3,
                itk::VnlRealToHalfHermitianForwardFFTImageFilter<ImageD3>,
                itk::VnlHalfHermitianToRealInverseFFTImageFilter<ImageCD3>>(SizeOfDimensions1)) != 0)
  {
    std::cerr << "--------------------- Failed!" << std::endl;
    rval++;
  }
  std::cerr << "Vnl float,1 (3,5,4)" << std::endl;
  if ((test_fft<float,
                1,
                itk::VnlRealToHalfHermitianForwardFFTImageFilter<ImageF1>,
                itk::VnlHalfHermitianToRealInverseFFTImageFilter<ImageCF1>>(SizeOfDimensions2)) != 0)
  {
    std::cerr << "--------------------- Failed!" << std::endl;
    rval++;
  }
  std::cerr << "Vnl float,2 (3,5,4)" << std::endl;
  if ((test_fft<float,
                2,
                itk::VnlRealToHalfHermitianForwardFFTImageFilter<ImageF2>,
                itk::VnlHalfHermitianToRealInverseFFTImageFilter<ImageCF2>>(SizeOfDimensions2)) != 0)
  {
    std::cerr << "--------------------- Failed!" << std::endl;
    rval++;
  }
  std::cerr << "Vnl float,3 (3,5,4)" << std::endl;
  if ((test_fft<float,
                3,
                itk::VnlRealToHalfHermitianForwardFFTImageFilter<ImageF3>,
                itk::VnlHalfHermitianToRealInverseFFTImageFilter<ImageCF3>>(SizeOfDimensions2)) != 0)
  {
    std::cerr << "--------------------- Failed!" << std::endl;
    rval++;
  }
  std::cerr << "Vnl double,1 (3,5,4)" << std::endl;
  if ((test_fft<double,
                1,
                itk::VnlRealToHalfHermitianForwardFFTImageFilter<ImageD1>,
                itk::VnlHalfHermitianToRealInverseFFTImageFilter<ImageCD1>>(SizeOfDimensions2)) != 0)
  {
    std::cerr << "--------------------- Failed!" << std::endl;
    rval++;
  }
  std::cerr << "Vnl double,2 (3,5,4)" << std::endl;
  if ((test_fft<double,
                2,
                itk::VnlRealToHalfHermitianForwardFFTImageFilter<ImageD2>,
                itk::VnlHalfHermitianToRealInverseFFTImageFilter<ImageCD2>>(SizeOfDimensions2)) != 0)
  {
    std::cerr << "--------------------- Failed!" << std::endl;
    rval++;
  }
  std::cerr << "Vnl double,3 (3,5,4)" << std::endl;
  if ((test_fft<double,
                3,
                itk::VnlRealToHalfHermitianForwardFFTImageFilter<ImageD3>,
                itk::VnlHalfHermitianToRealInverseFFTImageFilter<ImageCD3>>(SizeOfDimensions2)) != 0)
  {
    std::cerr << "--------------------- Failed!" << std::endl;
    rval++;
  }

  // These tests should fail.

  std::cerr << "Vnl float,1 (7,6,4)" << std::endl;
  if ((test_fft<float,
                1,
                itk::VnlRealToHalfHermitianForwardFFTImageFilter<ImageF1>,
                itk::VnlHalfHermitianToRealInverseFFTImageFilter<ImageCF1>>(SizeOfDimensions3)) == 0)
  {
    std::cerr << "--------------------- Failed!" << std::endl;
    rval++;
  }
  else
  {
    std::cerr << "Caught expected size error." << std::endl;
  }

  std::cerr << "Vnl float,2 (7,6,4)" << std::endl;
  if ((test_fft<float,
                2,
                itk::VnlRealToHalfHermitianForwardFFTImageFilter<ImageF2>,
                itk::VnlHalfHermitianToRealInverseFFTImageFilter<ImageCF2>>(SizeOfDimensions3)) == 0)
  {
    std::cerr << "--------------------- Failed!" << std::endl;
    rval++;
  }
  else
  {
    std::cerr << "Caught expected size error." << std::endl;
  }

  std::cerr << "Vnl float,3 (7,6,4)" << std::endl;
  if ((test_fft<float,
                3,
                itk::VnlRealToHalfHermitianForwardFFTImageFilter<ImageF3>,
                itk::VnlHalfHermitianToRealInverseFFTImageFilter<ImageCF3>>(SizeOfDimensions3)) == 0)
  {
    std::cerr << "--------------------- Failed!" << std::endl;
    rval++;
  }
  else
  {
    std::cerr << "Caught expected size error." << std::endl;
  }

  std::cerr << "Vnl double,1 (7,6,4)" << std::endl;
  if ((test_fft<double,
                1,
                itk::VnlRealToHalfHermitianForwardFFTImageFilter<ImageD1>,
                itk::VnlHalfHermitianToRealInverseFFTImageFilter<ImageCD1>>(SizeOfDimensions3)) == 0)
  {
    std::cerr << "--------------------- Failed!" << std::endl;
    rval++;
  }
  else
  {
    std::cerr << "Caught expected size error." << std::endl;
  }

  std::cerr << "Vnl double,2 (7,6,4)" << std::endl;
  if ((test_fft<double,
                2,
                itk::VnlRealToHalfHermitianForwardFFTImageFilter<ImageD2>,
                itk::VnlHalfHermitianToRealInverseFFTImageFilter<ImageCD2>>(SizeOfDimensions3)) == 0)
  {
    std::cerr << "--------------------- Failed!" << std::endl;
    rval++;
  }
  else
  {
    std::cerr << "Caught expected size error." << std::endl;
  }

  std::cerr << "Vnl double,3 (7,6,4)" << std::endl;
  if ((test_fft<double,
                3,
                itk::VnlRealToHalfHermitianForwardFFTImageFilter<ImageD3>,
                itk::VnlHalfHermitianToRealInverseFFTImageFilter<ImageCD3>>(SizeOfDimensions3)) == 0)
  {
    std::cerr << "--------------------- Failed!" << std::endl;
    rval++;
  }
  else
  {
    std::cerr << "Caught expected size error." << std::endl;
  }

  return rval == 0 ? 0 : -1;
}
