//============================================================================
//  Copyright (c) Kitware, Inc.
//  All rights reserved.
//  See LICENSE.txt for details.
//  This software is distributed WITHOUT ANY WARRANTY; without even
//  the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
//  PURPOSE.  See the above copyright notice for more information.
//
//  Copyright 2014 Sandia Corporation.
//  Copyright 2014 UT-Battelle, LLC.
//  Copyright 2014 Los Alamos National Security.
//
//  Under the terms of Contract DE-AC04-94AL85000 with Sandia Corporation,
//  the U.S. Government retains certain rights in this software.
//
//  Under the terms of Contract DE-AC52-06NA25396 with Los Alamos National
//  Laboratory (LANL), the U.S. Government retains certain rights in
//  this software.
//============================================================================

#include <vtkm/CellShape.h>

#include <vtkm/cont/CellSetStructured.h>
#include <vtkm/cont/DataSet.h>
#include <vtkm/cont/DeviceAdapterSerial.h>

#include <vtkm/exec/ConnectivityStructured.h>

#include <vtkm/cont/testing/Testing.h>
#include <vtkm/cont/testing/MakeTestDataSet.h>

static void TwoDimUniformTest();
static void ThreeDimUniformTest();

void TestDataSet_Uniform()
{
  std::cout << std::endl;
  std::cout << "--TestDataSet_Uniform--" << std::endl << std::endl;

  TwoDimUniformTest();
  ThreeDimUniformTest();
}

static void
TwoDimUniformTest()
{
  std::cout<<"2D Uniform data set"<<std::endl;
  vtkm::cont::testing::MakeTestDataSet testDataSet;

  vtkm::cont::DataSet dataSet = testDataSet.Make2DUniformDataSet0();

  dataSet.PrintSummary(std::cout);

  vtkm::cont::CellSetStructured<2> cellSet;
  dataSet.GetCellSet(0).CopyTo(cellSet);

  VTKM_TEST_ASSERT(dataSet.GetNumberOfCellSets() == 1,
                   "Incorrect number of cell sets");
  VTKM_TEST_ASSERT(dataSet.GetNumberOfFields() == 2,
                   "Incorrect number of fields");
  VTKM_TEST_ASSERT(dataSet.GetNumberOfCoordinateSystems() == 1,
                   "Incorrect number of coordinate systems");
  VTKM_TEST_ASSERT(cellSet.GetNumberOfPoints() == 6,
                   "Incorrect number of points");
  VTKM_TEST_ASSERT(cellSet.GetNumberOfCells() == 2,
                   "Incorrect number of cells");
  VTKM_TEST_ASSERT(cellSet.GetPointDimensions() == vtkm::Id2(3,2),
                   "Incorrect point dimensions");
  VTKM_TEST_ASSERT(cellSet.GetCellDimensions() == vtkm::Id2(2,1),
                   "Incorrect cell dimensions");

  // test various field-getting methods and associations
  try
  {
      dataSet.GetField("cellvar", vtkm::cont::Field::ASSOC_CELL_SET);
  }
  catch (...)
  {
      VTKM_TEST_FAIL("Failed to get field 'cellvar' with ASSOC_CELL_SET.");
  }

  try
  {
    dataSet.GetField("pointvar", vtkm::cont::Field::ASSOC_POINTS);
  }
  catch (...)
  {
      VTKM_TEST_FAIL("Failed to get field 'pointvar' with ASSOC_POINT_SET.");
  }

  vtkm::Id numCells = cellSet.GetNumberOfCells();
  for (vtkm::Id cellIndex = 0; cellIndex < numCells; cellIndex++)
  {
    VTKM_TEST_ASSERT(cellSet.GetNumberOfPointsInCell(cellIndex) == 4,
                     "Incorrect number of cell indices");
    vtkm::IdComponent shape = cellSet.GetCellShape();
    VTKM_TEST_ASSERT(shape == vtkm::CELL_SHAPE_QUAD,
                     "Incorrect element type.");
  }

  vtkm::exec::ConnectivityStructured<
      vtkm::TopologyElementTagPoint,
      vtkm::TopologyElementTagCell,
      2> pointToCell =
      cellSet.PrepareForInput(
        vtkm::cont::DeviceAdapterTagSerial(),
        vtkm::TopologyElementTagPoint(),
        vtkm::TopologyElementTagCell());
  vtkm::exec::ConnectivityStructured<
      vtkm::TopologyElementTagCell,
      vtkm::TopologyElementTagPoint,
      2> cellToPoint =
      cellSet.PrepareForInput(
        vtkm::cont::DeviceAdapterTagSerial(),
        vtkm::TopologyElementTagCell(),
        vtkm::TopologyElementTagPoint());


  vtkm::Id cells[2][4] = {{0,1,4,3}, {1,2,5,4}};
  for (vtkm::Id cellIndex = 0; cellIndex < 2; cellIndex++)
  {
    vtkm::Vec<vtkm::Id,4> pointIds =
        pointToCell.GetIndices(pointToCell.FlatToLogicalToIndex(cellIndex));
    for (vtkm::IdComponent localPointIndex = 0;
         localPointIndex < 4;
         localPointIndex++)
    {
      VTKM_TEST_ASSERT(
            pointIds[localPointIndex] == cells[cellIndex][localPointIndex],
            "Incorrect point ID for cell");
    }
  }

  vtkm::Id expectedCellIds[6][4] = {{0,-1,-1,-1},
                                    {0,1,-1,-1},
                                    {1,-1,-1,-1},
                                    {0,-1,-1,-1},
                                    {0,1,-1,-1},
                                    {1,-1,-1,-1}};

  for (vtkm::Id pointIndex = 0; pointIndex < 6; pointIndex++)
  {
    vtkm::VecVariable<vtkm::Id,4> retrievedCellIds =
      cellToPoint.GetIndices(cellToPoint.FlatToLogicalToIndex(pointIndex));
    VTKM_TEST_ASSERT(retrievedCellIds.GetNumberOfComponents() <= 4,
                     "Got wrong number of cell ids.");
    for (vtkm::IdComponent cellIndex = 0;
         cellIndex < retrievedCellIds.GetNumberOfComponents();
         cellIndex++)
    {
      VTKM_TEST_ASSERT(
            retrievedCellIds[cellIndex] == expectedCellIds[pointIndex][cellIndex],
            "Incorrect cell ID for point");
    }
  }
}

static void
ThreeDimUniformTest()
{
  std::cout<<"3D Uniform data set"<<std::endl;
  vtkm::cont::testing::MakeTestDataSet testDataSet;

  vtkm::cont::DataSet dataSet = testDataSet.Make3DUniformDataSet0();

  dataSet.PrintSummary(std::cout);

  vtkm::cont::CellSetStructured<3> cellSet;
  dataSet.GetCellSet(0).CopyTo(cellSet);

  VTKM_TEST_ASSERT(dataSet.GetNumberOfCellSets() == 1,
                   "Incorrect number of cell sets");

  VTKM_TEST_ASSERT(dataSet.GetNumberOfFields() == 2,
                   "Incorrect number of fields");

  VTKM_TEST_ASSERT(dataSet.GetNumberOfCoordinateSystems() == 1,
                   "Incorrect number of coordinate systems");

  VTKM_TEST_ASSERT(cellSet.GetNumberOfPoints() == 18,
                   "Incorrect number of points");

  VTKM_TEST_ASSERT(cellSet.GetNumberOfCells() == 4,
                   "Incorrect number of cells");

  VTKM_TEST_ASSERT(cellSet.GetPointDimensions() == vtkm::Id3(3,2,3),
                   "Incorrect point dimensions");

  VTKM_TEST_ASSERT(cellSet.GetCellDimensions() == vtkm::Id3(2,1,2),
                   "Incorrect cell dimensions");

  try
  {
      dataSet.GetField("cellvar", vtkm::cont::Field::ASSOC_CELL_SET);
  }
  catch (...)
  {
      VTKM_TEST_FAIL("Failed to get field 'cellvar' with ASSOC_CELL_SET.");
  }

  try
  {
    dataSet.GetField("pointvar", vtkm::cont::Field::ASSOC_POINTS);
  }
  catch (...)
  {
      VTKM_TEST_FAIL("Failed to get field 'pointvar' with ASSOC_POINT_SET.");
  }

  vtkm::Id numCells = cellSet.GetNumberOfCells();
  for (vtkm::Id cellIndex = 0; cellIndex < numCells; cellIndex++)
  {
    VTKM_TEST_ASSERT(cellSet.GetNumberOfPointsInCell(cellIndex) == 8,
                     "Incorrect number of cell indices");
    vtkm::IdComponent shape = cellSet.GetCellShape();
    VTKM_TEST_ASSERT(shape == vtkm::CELL_SHAPE_HEXAHEDRON,
                     "Incorrect element type.");
  }

  //Test uniform connectivity.
  vtkm::exec::ConnectivityStructured<
      vtkm::TopologyElementTagPoint,
      vtkm::TopologyElementTagCell,
      3> pointToCell =
      cellSet.PrepareForInput(
        vtkm::cont::DeviceAdapterTagSerial(),
        vtkm::TopologyElementTagPoint(),
        vtkm::TopologyElementTagCell());
  vtkm::Id expectedPointIds[8] = {0,1,4,3,6,7,10,9};
  vtkm::Vec<vtkm::Id,8> retrievedPointIds =
      pointToCell.GetIndices(vtkm::Id3(0));
  for (vtkm::IdComponent localPointIndex = 0;
       localPointIndex < 8;
       localPointIndex++)
  {
    VTKM_TEST_ASSERT(
          retrievedPointIds[localPointIndex] == expectedPointIds[localPointIndex],
          "Incorrect point ID for cell");
  }

  vtkm::exec::ConnectivityStructured<
      vtkm::TopologyElementTagCell,
      vtkm::TopologyElementTagPoint,
      3> cellToPoint =
      cellSet.PrepareForInput(
        vtkm::cont::DeviceAdapterTagSerial(),
        vtkm::TopologyElementTagCell(),
        vtkm::TopologyElementTagPoint());
  vtkm::Id retrievedCellIds[6] = {0,-1,-1,-1,-1,-1};
  vtkm::VecVariable<vtkm::Id,6> expectedCellIds =
      cellToPoint.GetIndices(vtkm::Id3(0));
  VTKM_TEST_ASSERT(expectedCellIds.GetNumberOfComponents() <= 6,
                   "Got unexpected number of cell ids");
  for (vtkm::IdComponent localPointIndex = 0;
       localPointIndex < expectedCellIds.GetNumberOfComponents();
       localPointIndex++)
  {
    VTKM_TEST_ASSERT(
          expectedCellIds[localPointIndex] == retrievedCellIds[localPointIndex],
          "Incorrect cell ID for point");
  }
}

int UnitTestDataSetUniform(int, char *[])
{
  return vtkm::cont::testing::Testing::Run(TestDataSet_Uniform);
}
