bug fixes + beginning of test

Signed-off-by: Mattias Andrée <maandree@kth.se>

1 files changed, 151 insertions, 0 deletions

diff --git a/src/test.c b/src/test.c
new file mode 100644
index 0000000..13f4e91
--- /dev/null
+++ b/src/test.c
@@ -0,0 +1,151 @@
+/**
+ * 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;
+}