/*
 * Copyright (c), Recep Aslantas.
 *
 * MIT License (MIT), http://opensource.org/licenses/MIT
 * Full license can be found in the LICENSE file
 */

#include "test_common.h"

#define A_MATRIX2X4 {{1,2,3,4},{5,6,7,8}}
#define A_MATRIX2X4_TRANSPOSE {{1,5}, {2,6}, {3,7}, {4,8}}

#ifndef CGLM_TEST_MAT2X4_ONCE
#define CGLM_TEST_MAT2X4_ONCE

TEST_IMPL(MACRO_GLM_MAT2X4_ZERO_INIT) {
  mat2x4 mat2x4_zero = GLM_MAT2X4_ZERO_INIT;
  test_assert_mat2x4_eq_zero(mat2x4_zero);
  TEST_SUCCESS
}

TEST_IMPL(MACRO_GLM_MAT2X4_ZERO) {
  mat2x4 mat2x4_zero = GLM_MAT2X4_ZERO;
  test_assert_mat2x4_eq_zero(mat2x4_zero);
  TEST_SUCCESS
}

#endif /* CGLM_TEST_MAT2X4_ONCE */

TEST_IMPL(GLM_PREFIX, mat2x4_copy) {
  mat2x4 m1 = A_MATRIX2X4;
  mat2x4 m2 = GLM_MAT2X4_ZERO_INIT;

  GLM(mat2x4_copy)(m1, m2);

  test_assert_mat2x4_eq(m1, m2);

  TEST_SUCCESS
}

TEST_IMPL(GLM_PREFIX, mat2x4_zero) {
  mat2x4 m1 = GLM_MAT2X4_ZERO_INIT;
  mat2x4 m2 = GLM_MAT2X4_ZERO_INIT;
  mat2x4 m3;

  GLM(mat2x4_zero)(m3);

  ASSERTIFY(test_assert_mat2x4_eq_zero(m1))
  ASSERTIFY(test_assert_mat2x4_eq_zero(m2))
  ASSERTIFY(test_assert_mat2x4_eq_zero(m3))

  TEST_SUCCESS
}

TEST_IMPL(GLM_PREFIX, mat2x4_make) {
  float src[24] = {
    0.5f, 1.7f, 10.3f, 4.2f, 8.9f, 1.1f, 77.3f, 88.4f,
    2.3f, 4.2f, 66.5f, 23.7f, 6.6f, 8.9f, 90.3f, 34.2f,
    5.3f, 4.8f, 96.3f, 13.7f, 4.7f, 5.5f, 22.9f, 5.5f
  };

  mat2x4 dest[3];

  float *srcp = src;
  unsigned int i, j, k;

  for (i = 0, j = 0, k = 0; i < sizeof(src) / sizeof(float); i+=8,j++) {
    GLM(mat2x4_make)(srcp + i, dest[j]);

    ASSERT(test_eq(src[ i ], dest[j][k][0]));
    ASSERT(test_eq(src[i+1], dest[j][k][1]));
    ASSERT(test_eq(src[i+2], dest[j][k][2]));
    ASSERT(test_eq(src[i+3], dest[j][k][3]));

    ASSERT(test_eq(src[i+4], dest[j][k+1][0]));
    ASSERT(test_eq(src[i+5], dest[j][k+1][1]));
    ASSERT(test_eq(src[i+6], dest[j][k+1][2]));
    ASSERT(test_eq(src[i+7], dest[j][k+1][3]));
  }

  TEST_SUCCESS
}

TEST_IMPL(GLM_PREFIX, mat2x4_mul) {
  mat2x4 m1 = GLM_MAT2X4_ZERO_INIT;
  mat4x2 m2 = GLM_MAT4X2_ZERO_INIT;

  mat4 m3 = GLM_MAT4_ZERO_INIT;
  mat4 m4 = GLM_MAT4_ZERO_INIT;

  int c, r, k;

  /* test random matrices */
  /* random matrices */
  test_rand_mat2x4(m1);
  test_rand_mat4x2(m2);

  for (r = 0; r < 4; r++) {
    for (c = 0; c < 4; c++) {
      for (k = 0; k < 2; k++) {
        m4[c][r] += m1[k][r] * m2[c][k];
      }
    }
  }

  GLM(mat2x4_mul)(m1, m2, m3);
  ASSERTIFY(test_assert_mat4_eq(m3, m4))

  TEST_SUCCESS
}

TEST_IMPL(GLM_PREFIX, mat2x4_mulv) {
  mat2x4 mat = A_MATRIX2X4;
  vec2 v = {11.0f, 21.0f};

  int  i;
  vec4 dest;
  float res = 0.0;

  GLM(mat2x4_mulv)(mat, v, dest);

  for (i = 0; i < 4; i++) {
    res = mat[0][i] * v[0] + mat[1][i] * v[1];
    ASSERT(test_eq(dest[i], res))
  }

  TEST_SUCCESS
}

TEST_IMPL(GLM_PREFIX, mat2x4_transpose) {
  mat2x4 m1 = A_MATRIX2X4;

  mat4x2 m2;
  mat4x2 m3 = A_MATRIX2X4_TRANSPOSE;
  GLM(mat2x4_transpose)(m1, m2);

  ASSERTIFY(test_assert_mat4x2_eq(m2, m3))

  TEST_SUCCESS
}

TEST_IMPL(GLM_PREFIX, mat2x4_scale) {
  mat2x4 m1 = A_MATRIX2X4;
  mat2x4 m2 = A_MATRIX2X4;
  int i, j, scale;

  scale = rand() % 100;

  GLM(mat2x4_scale)(m1, (float) scale);

  for (i = 0; i < 2; i++) {
    for (j = 0; j < 4; j++) {
      ASSERT(test_eq(m1[i][j], m2[i][j] * scale))
    }
  }

  TEST_SUCCESS
}