/* EINA - EFL data type library
 * Copyright (C) 2015 Subhransu Mohanty <sub.mohanty@samsung.com>
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library 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
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library;
 * if not, see <http://www.gnu.org/licenses/>.
 */

#ifdef HAVE_CONFIG_H
# include "config.h"
#endif

#include <stdio.h>
#include <math.h>

#include <Eina.h>

#include "eina_suite.h"

EFL_START_TEST(eina_bezier_test_values)
{
   Eina_Bezier b;
   double sx, sy, cx1, cy1, cx2, cy2, ex, ey;

   eina_bezier_values_set(&b,
                          1, 2,
                          3, 4,
                          5, 6,
                          7, 8);
   eina_bezier_values_get(&b,
                          &sx, &sy,
                          &cx1, &cy1,
                          &cx2, &cy2,
                          &ex, &ey);
   fail_if(!EINA_DBL_EQ(sx, 1) ||
           !EINA_DBL_EQ(sy, 2) ||
           !EINA_DBL_EQ(cx1, 3) ||
           !EINA_DBL_EQ(cy1, 4) ||
           !EINA_DBL_EQ(cx2, 5) ||
           !EINA_DBL_EQ(cy2, 6) ||
           !EINA_DBL_EQ(ex, 7) ||
           !EINA_DBL_EQ(ey, 8));
}
EFL_END_TEST

EFL_START_TEST(eina_bezier_test_angle)
{
   Eina_Bezier b;
   double angle;

   eina_bezier_values_set(&b,
                          1, 1,
                          3, 1,
                          5, 1,
                          7, 1);
   angle = eina_bezier_angle_at(&b, 0.5);

   fail_if(EINA_DBL_NONZERO(angle));

   eina_bezier_values_set(&b,
                          1, 2,
                          1, 4,
                          1, 6,
                          1, 8);
   angle = eina_bezier_angle_at(&b, 0.5);
   fail_if(!EINA_DBL_EQ(floor(angle), 90));

}
EFL_END_TEST

EFL_START_TEST(eina_bezier_test_length)
{
   Eina_Bezier b;
   double length;

   eina_bezier_values_set(&b,
                          1, 1,
                          3, 1,
                          5, 1,
                          7, 1);
   length = eina_bezier_length_get(&b);
   fail_if(!EINA_DBL_EQ(floor(length), 6));

   eina_bezier_values_set(&b,
                          1, 1,
                          1, 1,
                          1, 1,
                          1, 1);
   length = eina_bezier_length_get(&b);
   fail_if(!EINA_DBL_EQ(length, 0));

}
EFL_END_TEST

EFL_START_TEST(eina_bezier_test_t_at)
{
   Eina_Bezier b;
   double length, t;

   eina_bezier_values_set(&b,
                          1, 1,
                          3, 1,
                          5, 1,
                          7, 1);
   length = eina_bezier_length_get(&b);
   t = eina_bezier_t_at(&b, 0);
   fail_if(!EINA_DBL_EQ(floor(t), 0));

   t = eina_bezier_t_at(&b, length);
   fail_if(!EINA_DBL_EQ(t, 1));

}
EFL_END_TEST

EFL_START_TEST(eina_bezier_test_point_at)
{
   Eina_Bezier b;
   double x, y;

   eina_bezier_values_set(&b,
                          1, 2,
                          3, 4,
                          5, 6,
                          7, 8);
   eina_bezier_point_at(&b, 0, &x , &y);
   fail_if(!EINA_DBL_EQ(x, 1) ||
           !EINA_DBL_EQ(y, 2));

   eina_bezier_point_at(&b, 1, &x , &y);

   fail_if(!EINA_DBL_EQ(x, 7) ||
           !EINA_DBL_EQ(y, 8));

}
EFL_END_TEST

EFL_START_TEST(eina_bezier_test_split_at_length)
{
   Eina_Bezier b, l , r;
   double len, len1, len2;

   eina_bezier_values_set(&b,
                          1, 2,
                          3, 4,
                          5, 6,
                          7, 8);
   len = eina_bezier_length_get(&b);
   eina_bezier_split_at_length(&b, len/3, &l, &r);
   len1 = eina_bezier_length_get(&l);
   len2 = eina_bezier_length_get(&r);

   fail_if(!EINA_DBL_EQ(len, (len1 + len2)));

}
EFL_END_TEST

EFL_START_TEST(eina_bezier_test_bounds_get)
{
   Eina_Bezier b;
   double x, y, w, h;

   eina_bezier_values_set(&b,
                          0, 0,
                          100, 0,
                          0, 100,
                          100, 100);

   eina_bezier_bounds_get(&b, &x, &y, &w, &h);

   fail_if(!EINA_DBL_EQ(x, 0) || !EINA_DBL_EQ(y, 0) || !EINA_DBL_EQ(w, 100) || !EINA_DBL_EQ(h, 100));

}
EFL_END_TEST

EFL_START_TEST(eina_bezier_test_on_interval)
{
   Eina_Bezier b, res;
   double px1, px2, py1, py2;

   eina_bezier_values_set(&b,
                          0, 0,
                          10, 20,
                          20, 90,
                          30, 0);
   eina_bezier_point_at(&b, 0.25, &px1, &py1);
   eina_bezier_on_interval(&b, 0.25, 0.5, &res);
   eina_bezier_point_at(&res, 0, &px2, &py2);

   fail_if(!EINA_DBL_EQ(px1, px2) || !EINA_DBL_EQ(py1, py2));

}
EFL_END_TEST

void
eina_test_bezier(TCase *tc)
{
   tcase_add_test(tc, eina_bezier_test_values);
   tcase_add_test(tc, eina_bezier_test_angle);
   tcase_add_test(tc, eina_bezier_test_length);
   tcase_add_test(tc, eina_bezier_test_t_at);
   tcase_add_test(tc, eina_bezier_test_point_at);
   tcase_add_test(tc, eina_bezier_test_split_at_length);
   tcase_add_test(tc, eina_bezier_test_bounds_get);
   tcase_add_test(tc, eina_bezier_test_on_interval);
}