/*! @file

    @id $Id$
*/
//       1         2         3         4         5         6         7         8
// 45678901234567890123456789012345678901234567890123456789012345678901234567890

#include <matrix.hxx>
#include <cppunit/TestFixture.h>
#include <cppunit/ui/text/TestRunner.h>
#include <cppunit/extensions/HelperMacros.h>
#include <cppunit/extensions/TestFactoryRegistry.h>
#include <cppunit/XmlOutputter.h>
#include <fstream>

class TemplateMatrixTest: public CppUnit::TestFixture { 
  public:
    template<typename T>
        void initFromArray1() {
      const Matrix<T,2,4> m {1, 2, 3, 4,
                             5, 6, 7, 8};
      CPPUNIT_ASSERT_EQUAL((T)1, m[0][0]);
      CPPUNIT_ASSERT_EQUAL((T)2, m[0][1]);
      CPPUNIT_ASSERT_EQUAL((T)3, m[0][2]);
      CPPUNIT_ASSERT_EQUAL((T)4, m[0][3]);
      CPPUNIT_ASSERT_EQUAL((T)5, m[1][0]);
      CPPUNIT_ASSERT_EQUAL((T)6, m[1][1]);
      CPPUNIT_ASSERT_EQUAL((T)7, m[1][2]);
      CPPUNIT_ASSERT_EQUAL((T)8, m[1][3]);
    }
    template<typename T>
        void initFromArray2() {
      const Matrix<T,2,4> m(1, 2, 3, 4,
                            5, 6, 7, 8);
      CPPUNIT_ASSERT_EQUAL((T)1, m[0][0]);
      CPPUNIT_ASSERT_EQUAL((T)2, m[0][1]);
      CPPUNIT_ASSERT_EQUAL((T)3, m[0][2]);
      CPPUNIT_ASSERT_EQUAL((T)4, m[0][3]);
      CPPUNIT_ASSERT_EQUAL((T)5, m[1][0]);
      CPPUNIT_ASSERT_EQUAL((T)6, m[1][1]);
      CPPUNIT_ASSERT_EQUAL((T)7, m[1][2]);
      CPPUNIT_ASSERT_EQUAL((T)8, m[1][3]);
    }
    template<typename T>
        void initFromArray3() {
      const Matrix<T,2,4> m({1, 2, 3, 4,
                             5, 6, 7, 8});
      CPPUNIT_ASSERT_EQUAL((T)1, m[0][0]);
      CPPUNIT_ASSERT_EQUAL((T)2, m[0][1]);
      CPPUNIT_ASSERT_EQUAL((T)3, m[0][2]);
      CPPUNIT_ASSERT_EQUAL((T)4, m[0][3]);
      CPPUNIT_ASSERT_EQUAL((T)5, m[1][0]);
      CPPUNIT_ASSERT_EQUAL((T)6, m[1][1]);
      CPPUNIT_ASSERT_EQUAL((T)7, m[1][2]);
      CPPUNIT_ASSERT_EQUAL((T)8, m[1][3]);
    }
    template<typename T>
        void initFromOtherMatrix() {
      Matrix<T,2,4> m1(1, 2, 3, 4,
                       5, 6, 7, 8);
      m1[1][2] = 13;
      Matrix<T,2,4> m2(m1);
      m1[0][2] = 16;
      m2[0][0] = 0;
      CPPUNIT_ASSERT_EQUAL((T)1, m1[0][0]);
      CPPUNIT_ASSERT_EQUAL((T)2, m1[0][1]);
      CPPUNIT_ASSERT_EQUAL((T)16, m1[0][2]);
      CPPUNIT_ASSERT_EQUAL((T)4, m1[0][3]);
      CPPUNIT_ASSERT_EQUAL((T)5, m1[1][0]);
      CPPUNIT_ASSERT_EQUAL((T)6, m1[1][1]);
      CPPUNIT_ASSERT_EQUAL((T)13, m1[1][2]);
      CPPUNIT_ASSERT_EQUAL((T)8, m1[1][3]);
      CPPUNIT_ASSERT_EQUAL((T)0, m2[0][0]);
      CPPUNIT_ASSERT_EQUAL((T)2, m2[0][1]);
      CPPUNIT_ASSERT_EQUAL((T)3, m2[0][2]);
      CPPUNIT_ASSERT_EQUAL((T)4, m2[0][3]);
      CPPUNIT_ASSERT_EQUAL((T)5, m2[1][0]);
      CPPUNIT_ASSERT_EQUAL((T)6, m2[1][1]);
      CPPUNIT_ASSERT_EQUAL((T)13, m2[1][2]);
      CPPUNIT_ASSERT_EQUAL((T)8, m2[1][3]);
    }
    template<typename T>
        void initFromDefault() {
      const Matrix<T,2,2> m;
      CPPUNIT_ASSERT_EQUAL((T)0, m[0][0]);
      CPPUNIT_ASSERT_EQUAL((T)0, m[0][1]);
      CPPUNIT_ASSERT_EQUAL((T)0, m[1][0]);
      CPPUNIT_ASSERT_EQUAL((T)0, m[1][1]);
    }
    template<typename T>
        void access() {
      Matrix<T,2,4> m1(1, 2, 3, 4,
                       5, 6, 7, 8);
      for (size_t row(0); row<2; ++row)
        for (size_t column(0); column<4; ++column)
          CPPUNIT_ASSERT_EQUAL(m1(row, column), m1[row][column]);
    }
    template<typename T>
        void equality() {
      Matrix<T,2,4> m1(1, 2, 3, 4,
                       5, 6, 7, 8);
      Matrix<T,2,4> m2(1, 2, 3, 4,
                       5, 6, 7, 8);
      Matrix<T,2,4> m3(1, 2, 3, 4,
                       5, 6, 7, 9);
      Matrix<T,2,4> m4(9, 2, 3, 4,
                       5, 6, 7, 8);
      Matrix<T,2,4> m5(1, 2, 0, 4,
                       5, 6, 7, 8);
      CPPUNIT_ASSERT(m1==m2);
      CPPUNIT_ASSERT(m1!=m3);
      CPPUNIT_ASSERT(m1!=m4);
      CPPUNIT_ASSERT(m1!=m5);
    }
    template<typename T>
        void operator_plus() {
      const Matrix<T,2,4> m1(1, 2, 3, 4,
                             5, 6, 7, 8);
      const Matrix<T,2,4> m2(2, 4, 6, 8,
                             1, 3, 5, 7);
      const Matrix<T,2,4> m(m1+m2);
      const Matrix<T,2,4> res(3, 6, 9, 12,
                              6, 9, 12, 15);
      CPPUNIT_ASSERT_EQUAL(res, m);
    }
    template<typename T>
        void operator_minus() {
      const Matrix<T,2,4> m1(1, 2, 3, 4,
                             5, 6, 7, 8);
      const Matrix<T,2,4> m2(2, 4, 6, 8,
                             1, 3, 5, 7);
      const Matrix<T,2,4> m(m1-m2);
      const Matrix<T,2,4> res(-1, -2, -3, -4,
                              4, 3, 2, 1);
      CPPUNIT_ASSERT_EQUAL(res, m);
    }
    template<typename T>
        void scalar_mult() {
      const Matrix<T,2,4> m1(1, 2, 3, 4,
                             5, 6, 7, 8);
      T two(2), three(3), four(4), big(32);
      CPPUNIT_ASSERT_EQUAL(m1*two, m1+m1);
      CPPUNIT_ASSERT_EQUAL(m1*three, m1+m1+m1);
      CPPUNIT_ASSERT_EQUAL(m1*four, m1+m1+m1+m1);
      CPPUNIT_ASSERT_EQUAL(two*m1, m1*two);
      CPPUNIT_ASSERT_EQUAL(three*m1, m1*three);
      CPPUNIT_ASSERT_EQUAL(four*m1, m1*four);
      CPPUNIT_ASSERT_EQUAL(two*m1*two, m1*four);
      CPPUNIT_ASSERT_EQUAL(big*m1*four, m1*four*big);
    }
    template<typename T>
        void matrix_mult() {
      const Matrix<T,2,3> m1(1, 2, 3,
                             4, 5, 6);
      const Matrix<T,3,4> m2(1, 4, 7, 10,
                             2, 5, 8, 11,
                             3, 6, 9, 12);
      const Matrix<T,2,4> m(m1*m2);
      const Matrix<T,2,4> res(14, 32,  50,  68,
                              32, 77, 122, 167);
      CPPUNIT_ASSERT_EQUAL(res, m);
    }
    template<typename T>
        void transpose() {
      const Matrix<T,2,3> m(1, 2, 3,
                            4, 5, 6);
      const Matrix<T,3,2> res(1, 4,
                              2, 5,
                              3, 6);
      CPPUNIT_ASSERT_EQUAL(res, m.t());
    }
    CPPUNIT_TEST_SUITE(TemplateMatrixTest);
    CPPUNIT_TEST(initFromArray1<int>);
    CPPUNIT_TEST(initFromArray1<long>);
    CPPUNIT_TEST(initFromArray1<unsigned>);
    CPPUNIT_TEST(initFromArray1<unsigned long>);
    CPPUNIT_TEST(initFromArray1<float>);
    CPPUNIT_TEST(initFromArray1<double>);
    CPPUNIT_TEST(initFromArray2<int>);
    CPPUNIT_TEST(initFromArray2<long>);
    CPPUNIT_TEST(initFromArray2<unsigned>);
    CPPUNIT_TEST(initFromArray2<unsigned long>);
    CPPUNIT_TEST(initFromArray2<float>);
    CPPUNIT_TEST(initFromArray2<double>);
    CPPUNIT_TEST(initFromArray3<int>);
    CPPUNIT_TEST(initFromArray3<long>);
    CPPUNIT_TEST(initFromArray3<unsigned>);
    CPPUNIT_TEST(initFromArray3<unsigned long>);
    CPPUNIT_TEST(initFromArray3<float>);
    CPPUNIT_TEST(initFromArray3<double>);
    CPPUNIT_TEST(initFromOtherMatrix<int>);
    CPPUNIT_TEST(initFromOtherMatrix<long>);
    CPPUNIT_TEST(initFromOtherMatrix<unsigned>);
    CPPUNIT_TEST(initFromOtherMatrix<unsigned long>);
    CPPUNIT_TEST(initFromOtherMatrix<float>);
    CPPUNIT_TEST(initFromOtherMatrix<double>);
    CPPUNIT_TEST(access<int>);
    CPPUNIT_TEST(access<long>);
    CPPUNIT_TEST(access<unsigned>);
    CPPUNIT_TEST(access<unsigned long>);
    CPPUNIT_TEST(access<float>);
    CPPUNIT_TEST(access<double>);
    CPPUNIT_TEST(equality<int>);
    CPPUNIT_TEST(equality<long>);
    CPPUNIT_TEST(equality<unsigned>);
    CPPUNIT_TEST(equality<unsigned long>);
    CPPUNIT_TEST(equality<float>);
    CPPUNIT_TEST(equality<double>);
    CPPUNIT_TEST(operator_plus<int>);
    CPPUNIT_TEST(operator_plus<long>);
    CPPUNIT_TEST(operator_plus<unsigned>);
    CPPUNIT_TEST(operator_plus<unsigned long>);
    CPPUNIT_TEST(operator_plus<float>);
    CPPUNIT_TEST(operator_plus<double>);
    CPPUNIT_TEST(operator_minus<int>);
    CPPUNIT_TEST(operator_minus<long>);
    CPPUNIT_TEST(operator_minus<unsigned>);
    CPPUNIT_TEST(operator_minus<unsigned long>);
    CPPUNIT_TEST(operator_minus<float>);
    CPPUNIT_TEST(operator_minus<double>);
    CPPUNIT_TEST(scalar_mult<int>);
    CPPUNIT_TEST(scalar_mult<long>);
    CPPUNIT_TEST(scalar_mult<unsigned>);
    CPPUNIT_TEST(scalar_mult<unsigned long>);
    CPPUNIT_TEST(scalar_mult<float>);
    CPPUNIT_TEST(scalar_mult<double>);
    CPPUNIT_TEST(matrix_mult<int>);
    CPPUNIT_TEST(matrix_mult<long>);
    CPPUNIT_TEST(matrix_mult<unsigned>);
    CPPUNIT_TEST(matrix_mult<unsigned long>);
    CPPUNIT_TEST(matrix_mult<float>);
    CPPUNIT_TEST(matrix_mult<double>);
    CPPUNIT_TEST(transpose<int>);
    CPPUNIT_TEST(transpose<long>);
    CPPUNIT_TEST(transpose<unsigned>);
    CPPUNIT_TEST(transpose<unsigned long>);
    CPPUNIT_TEST(transpose<float>);
    CPPUNIT_TEST(transpose<double>);
    CPPUNIT_TEST_SUITE_END();
};
CPPUNIT_TEST_SUITE_REGISTRATION(TemplateMatrixTest);

class VariableMatrixTest: public CppUnit::TestFixture { 
  public:
    template<typename T>
        void initFromArray1() {
      Matrix<T> m(2,4,
                  1, 2, 3, 4,
                  5, 6, 7, 8);
      CPPUNIT_ASSERT_EQUAL((T)1, m[0][0]);
      CPPUNIT_ASSERT_EQUAL((T)2, m[0][1]);
      CPPUNIT_ASSERT_EQUAL((T)3, m[0][2]);
      CPPUNIT_ASSERT_EQUAL((T)4, m[0][3]);
      CPPUNIT_ASSERT_EQUAL((T)5, m[1][0]);
      CPPUNIT_ASSERT_EQUAL((T)6, m[1][1]);
      CPPUNIT_ASSERT_EQUAL((T)7, m[1][2]);
      CPPUNIT_ASSERT_EQUAL((T)8, m[1][3]);
    }
    template<typename T>
        void initFromArray2() {
        Matrix<T> m(2, 4,
                    1, 2, 3, 4,
                    5, 6, 7, 8);
      CPPUNIT_ASSERT_EQUAL((T)1, m[0][0]);
      CPPUNIT_ASSERT_EQUAL((T)2, m[0][1]);
      CPPUNIT_ASSERT_EQUAL((T)3, m[0][2]);
      CPPUNIT_ASSERT_EQUAL((T)4, m[0][3]);
      CPPUNIT_ASSERT_EQUAL((T)5, m[1][0]);
      CPPUNIT_ASSERT_EQUAL((T)6, m[1][1]);
      CPPUNIT_ASSERT_EQUAL((T)7, m[1][2]);
      CPPUNIT_ASSERT_EQUAL((T)8, m[1][3]);
    }
    template<typename T>
        void initFromOtherMatrix() {
      Matrix<T> m1(2, 4,
                   1, 2, 3, 4,
                   5, 6, 7, 8);
      m1[1][2] = 13;
      Matrix<T> m2(m1);
      m1[0][2] = 16;
      m2[0][0] = 0;
      CPPUNIT_ASSERT_EQUAL((T)1, m1[0][0]);
      CPPUNIT_ASSERT_EQUAL((T)2, m1[0][1]);
      CPPUNIT_ASSERT_EQUAL((T)16, m1[0][2]);
      CPPUNIT_ASSERT_EQUAL((T)4, m1[0][3]);
      CPPUNIT_ASSERT_EQUAL((T)5, m1[1][0]);
      CPPUNIT_ASSERT_EQUAL((T)6, m1[1][1]);
      CPPUNIT_ASSERT_EQUAL((T)13, m1[1][2]);
      CPPUNIT_ASSERT_EQUAL((T)8, m1[1][3]);
      CPPUNIT_ASSERT_EQUAL((T)0, m2[0][0]);
      CPPUNIT_ASSERT_EQUAL((T)2, m2[0][1]);
      CPPUNIT_ASSERT_EQUAL((T)3, m2[0][2]);
      CPPUNIT_ASSERT_EQUAL((T)4, m2[0][3]);
      CPPUNIT_ASSERT_EQUAL((T)5, m2[1][0]);
      CPPUNIT_ASSERT_EQUAL((T)6, m2[1][1]);
      CPPUNIT_ASSERT_EQUAL((T)13, m2[1][2]);
      CPPUNIT_ASSERT_EQUAL((T)8, m2[1][3]);
    }
    template<typename T>
        void initFromDefault() {
      Matrix<T> m(2, 4);
      CPPUNIT_ASSERT_EQUAL((T)0, m[0][0]);
      CPPUNIT_ASSERT_EQUAL((T)0, m[0][1]);
      CPPUNIT_ASSERT_EQUAL((T)0, m[1][0]);
      CPPUNIT_ASSERT_EQUAL((T)0, m[1][1]);
    }
    template<typename T>
        void access() {
      Matrix<T> m1(2, 4,
                   1, 2, 3, 4,
                   5, 6, 7, 8);
      for (size_t row(0); row<2; ++row)
        for (size_t column(0); column<4; ++column)
          CPPUNIT_ASSERT_EQUAL(m1(row, column), m1[row][column]);
    }
    template<typename T>
        void equality() {
      Matrix<T> m1(2, 4,
                   1, 2, 3, 4,
                   5, 6, 7, 8);
      Matrix<T> m2(2, 4,
                   1, 2, 3, 4,
                   5, 6, 7, 8);
      Matrix<T> m3(2, 4,
                   1, 2, 3, 4,
                   5, 6, 7, 9);
      Matrix<T> m4(2, 4,
                   9, 2, 3, 4,
                   5, 6, 7, 8);
      CPPUNIT_ASSERT(m1==m2);
      CPPUNIT_ASSERT(m1!=m3);
      CPPUNIT_ASSERT(m1!=m4);
    }
    template<typename T>
        void operator_plus() {
      const Matrix<T> m1(2, 4,
                         1, 2, 3, 4,
                         5, 6, 7, 8);
      const Matrix<T> m2(2, 4,
                         2, 4, 6, 8,
                         1, 3, 5, 7);
      const Matrix<T> m(m1+m2);
      const Matrix<T> res(2, 4,
                          3, 6, 9, 12,
                          6, 9, 12, 15);
      CPPUNIT_ASSERT_EQUAL(res, m);
    }
    template<typename T>
        void operator_minus() {
      const Matrix<T> m1(2, 4,
                         1, 2, 3, 4,
                         5, 6, 7, 8);
      const Matrix<T> m2(2, 4,
                         2, 4, 6, 8,
                         1, 3, 5, 7);
      const Matrix<T> m(m1-m2);
      const Matrix<T> res(2, 4,
                         -1, -2, -3, -4,
                          4, 3, 2, 1);
      CPPUNIT_ASSERT_EQUAL(res, m);
    }
    template<typename T>
        void scalar_mult() {
      const Matrix<T> m1(2, 4,
                         1, 2, 3, 4,
                         5, 6, 7, 8);
      T two(2), three(3), four(4), big(32);
      CPPUNIT_ASSERT_EQUAL(m1*two, m1+m1);
      CPPUNIT_ASSERT_EQUAL(m1*three, m1+m1+m1);
      CPPUNIT_ASSERT_EQUAL(m1*four, m1+m1+m1+m1);
      CPPUNIT_ASSERT_EQUAL(two*m1, m1*two);
      CPPUNIT_ASSERT_EQUAL(three*m1, m1*three);
      CPPUNIT_ASSERT_EQUAL(four*m1, m1*four);
      CPPUNIT_ASSERT_EQUAL(two*m1*two, m1*four);
      CPPUNIT_ASSERT_EQUAL(big*m1*four, m1*four*big);
    }
    template<typename T>
        void matrix_mult() {
      const Matrix<T> m1(2, 3,
                         1, 2, 3,
                         4, 5, 6);
      const Matrix<T> m2(3, 4,
                         1, 4, 7, 10,
                         2, 5, 8, 11,
                         3, 6, 9, 12);
      const Matrix<T> m(m1*m2);
      const Matrix<T> res(2, 4,
                          14, 32,  50,  68,
                          32, 77, 122, 167);
      CPPUNIT_ASSERT_EQUAL(res, m);
    }
    template<typename T>
        void transpose() {
      const Matrix<T> m(2, 3,
                        1, 2, 3,
                        4, 5, 6);
      const Matrix<T> res(3, 2,
                          1, 4,
                          2, 5,
                          3, 6);
      CPPUNIT_ASSERT_EQUAL(res, m.t());
    }
    CPPUNIT_TEST_SUITE(VariableMatrixTest);
    CPPUNIT_TEST(initFromArray1<int>);
    CPPUNIT_TEST(initFromArray1<long>);
    CPPUNIT_TEST(initFromArray1<unsigned>);
    CPPUNIT_TEST(initFromArray1<unsigned long>);
    CPPUNIT_TEST(initFromArray1<float>);
    CPPUNIT_TEST(initFromArray1<double>);
    CPPUNIT_TEST(initFromArray2<int>);
    CPPUNIT_TEST(initFromArray2<long>);
    CPPUNIT_TEST(initFromArray2<unsigned>);
    CPPUNIT_TEST(initFromArray2<unsigned long>);
    CPPUNIT_TEST(initFromArray2<float>);
    CPPUNIT_TEST(initFromArray2<double>);
    CPPUNIT_TEST(initFromOtherMatrix<int>);
    CPPUNIT_TEST(initFromOtherMatrix<long>);
    CPPUNIT_TEST(initFromOtherMatrix<unsigned>);
    CPPUNIT_TEST(initFromOtherMatrix<unsigned long>);
    CPPUNIT_TEST(initFromOtherMatrix<float>);
    CPPUNIT_TEST(initFromOtherMatrix<double>);
    CPPUNIT_TEST(access<int>);
    CPPUNIT_TEST(access<long>);
    CPPUNIT_TEST(access<unsigned>);
    CPPUNIT_TEST(access<unsigned long>);
    CPPUNIT_TEST(access<float>);
    CPPUNIT_TEST(access<double>);
    CPPUNIT_TEST(equality<int>);
    CPPUNIT_TEST(equality<long>);
    CPPUNIT_TEST(equality<unsigned>);
    CPPUNIT_TEST(equality<unsigned long>);
    CPPUNIT_TEST(equality<float>);
    CPPUNIT_TEST(equality<double>);
    CPPUNIT_TEST(operator_plus<int>);
    CPPUNIT_TEST(operator_plus<long>);
    CPPUNIT_TEST(operator_plus<unsigned>);
    CPPUNIT_TEST(operator_plus<unsigned long>);
    CPPUNIT_TEST(operator_plus<float>);
    CPPUNIT_TEST(operator_plus<double>);
    CPPUNIT_TEST(operator_minus<int>);
    CPPUNIT_TEST(operator_minus<long>);
    CPPUNIT_TEST(operator_minus<unsigned>);
    CPPUNIT_TEST(operator_minus<unsigned long>);
    CPPUNIT_TEST(operator_minus<float>);
    CPPUNIT_TEST(operator_minus<double>);
    CPPUNIT_TEST(scalar_mult<int>);
    CPPUNIT_TEST(scalar_mult<long>);
    CPPUNIT_TEST(scalar_mult<unsigned>);
    CPPUNIT_TEST(scalar_mult<unsigned long>);
    CPPUNIT_TEST(scalar_mult<float>);
    CPPUNIT_TEST(scalar_mult<double>);
    CPPUNIT_TEST(scalar_mult<int>);
    CPPUNIT_TEST(scalar_mult<long>);
    CPPUNIT_TEST(scalar_mult<unsigned>);
    CPPUNIT_TEST(scalar_mult<unsigned long>);
    CPPUNIT_TEST(scalar_mult<float>);
    CPPUNIT_TEST(scalar_mult<double>);
    CPPUNIT_TEST(matrix_mult<int>);
    CPPUNIT_TEST(matrix_mult<long>);
    CPPUNIT_TEST(matrix_mult<unsigned>);
    CPPUNIT_TEST(matrix_mult<unsigned long>);
    CPPUNIT_TEST(matrix_mult<float>);
    CPPUNIT_TEST(matrix_mult<double>);
    CPPUNIT_TEST(transpose<int>);
    CPPUNIT_TEST(transpose<long>);
    CPPUNIT_TEST(transpose<unsigned>);
    CPPUNIT_TEST(transpose<unsigned long>);
    CPPUNIT_TEST(transpose<float>);
    CPPUNIT_TEST(transpose<double>);
    CPPUNIT_TEST_SUITE_END();
};
CPPUNIT_TEST_SUITE_REGISTRATION(VariableMatrixTest);

int main(int argc, char** argv) try {
  std::ofstream ofs((*argv+std::string(".xml")).c_str());
  CppUnit::TextUi::TestRunner runner;
  runner.setOutputter(new CppUnit::XmlOutputter(&runner.result(), ofs));
  runner.addTest(CppUnit::TestFactoryRegistry::getRegistry().makeTest());
  return runner.run() ? 0 : 1;
 } catch (std::exception& e) {
  std::cerr<<"***Exception: "<<e.what()<<std::endl;
  return 1;
 }