/**
 * Copyright © 2016  Mattias Andrée <maandree@kth.se>
 * 
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 * 
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */
#include "libcolour.h"

#include <stdio.h>


int test_convert_(libcolour_colour_t* c1, libcolour_colour_t* c2, libcolour_colour_t* c3)
{
  double ch1, ch2, ch3;
  if (libcolour_convert(c1, c2))
    return -1;
  if (libcolour_convert(c2, c3))
    return -1;
  ch1 = c1->srgb.R - c3->srgb.R;
  ch2 = c1->srgb.G - c3->srgb.G;
  ch3 = c1->srgb.B - c3->srgb.B;
  ch1 *= ch1;
  ch2 *= ch2;
  ch3 *= ch3;
  if (ch1 > 0.0000001 ||
      ch2 > 0.0000001 ||
      ch3 > 0.0000001)
    return 0;
  return 1;
}
  

int test_convert(libcolour_colour_t* c1, libcolour_model_t model)
{
  libcolour_colour_t c2, c3;
  int r1, r2;
  c3 = *c1;
  c2.model = model;
  switch (model) {
  case LIBCOLOUR_RGB:
    c2.rgb.with_gamma = 0;
    if (libcolour_get_rgb_colour_space(&c2.rgb, LIBCOLOUR_RGB_COLOUR_SPACE_SRGB) < 0)
      return -1;
    return test_convert_(c1, &c2, &c3);
  case LIBCOLOUR_SRGB:
    c2.srgb.with_gamma = 0;
    if (r1 = test_convert_(c1, &c2, &c3), r1 < 0)
      return -1;
    c2.srgb.with_gamma = 1;
    if (r2 = test_convert_(c1, &c2, &c3), r2 < 0)
      return -1;
    return r1 & r2;
  case LIBCOLOUR_CIELUV:
  case LIBCOLOUR_CIELCH:
    c2.cielch.white.model = LIBCOLOUR_CIEXYZ;
    c2.cielch.white.X = 1.0294;
    c2.cielch.white.Y = 1;
    c2.cielch.white.Z = 0.9118;
    return test_convert_(c1, &c2, &c3);
  case LIBCOLOUR_CIEUVW:
    c2.cieuvw.u0 = 0.37;
    c2.cieuvw.v0 = 0.30;
    return test_convert_(c1, &c2, &c3);
  default:
    return test_convert_(c1, &c2, &c3);
  }
}


int test_convert_all(libcolour_model_t model, const char* model_name)
{
  libcolour_colour_t c1;
  int r, rc = 1;

  c1.model = model;
  c1.srgb.R = 0.2, c1.srgb.G = 0.5, c1.srgb.B = 0.9;

  switch (model) {
  case LIBCOLOUR_RGB:
    c1.rgb.with_gamma = 0;
    if (libcolour_get_rgb_colour_space(&c1.rgb, LIBCOLOUR_RGB_COLOUR_SPACE_SRGB) < 0)
      return -1;
    break;
  case LIBCOLOUR_SRGB:
    c1.srgb.with_gamma = 0;
    break;
  case LIBCOLOUR_CIELUV:
  case LIBCOLOUR_CIELCH:
    c1.cielch.white.model = LIBCOLOUR_CIEXYZ;
    c1.cielch.white.X = 1.0294;
    c1.cielch.white.Y = 1;
    c1.cielch.white.Z = 0.9118;
    break;
  case LIBCOLOUR_CIEUVW:
    c1.cieuvw.u0 = 0.37;
    c1.cieuvw.v0 = 0.30;
    break;
  default:
    break;
  }

  c1.srgb.with_gamma = 0;
#define X(ENUM, TYPE)\
  r = test_convert(&c1, ENUM);\
  if (r < 0)\
    return -1;\
  if (!r)\
    printf("%s -> %s -> %s failed\n", model_name, #ENUM, model_name), rc = 0;
  LIBCOLOUR_LIST_MODELS;
#undef X

  return rc;
}


/**
 * Test libcolour
 * 
 * @return  0: All tests passed
 *          1: At least one test fail
 *          2: An error occurred
 */
int main(int argc, char* argv[])
{
  int r, rc = 0;

#define X(ENUM, TYPE)\
  r = test_convert_all(ENUM, #ENUM);\
  if (r < 0)\
    goto fail;\
  if (!r)\
    rc = 1;
  LIBCOLOUR_LIST_MODELS;
#undef X

  return rc;
 fail:
  perror(*argv);
  return 2;
  (void) argc;
}