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

#include <stdio.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <unistd.h>

#include <Evas.h>
#include <Ecore_Evas.h>
#include <Ecore.h>

#include "evas_suite.h"
#include "evas_tests_helpers.h"

#define TESTS_IMG_DIR TESTS_SRC_DIR"/images"

static const char *exts[] = {
  "png"
#ifdef BUILD_LOADER_TGA
  ,"tga"
#endif
#ifdef BUILD_LOADER_WBMP
  ,"wbmp"
#endif
#ifdef BUILD_LOADER_XPM
  ,"xpm"
#endif
#ifdef BUILD_LOADER_BMP
  ,"bmp"
#endif
#ifdef BUILD_LOADER_GIF
  ,"gif"
#endif
#ifdef BUILD_LOADER_PSD
  ,"psd"
#endif
#ifdef BUILD_LOADER_WEBP
  ,"webp"
#endif
#ifdef BUILD_LOADER_TGV
  ,"tgv"
#endif
#ifdef BUILD_LOADER_JP2K
  ,"jp2"
  ,"j2k"
#endif
/* ADD NEW FORMATS HERE
 * JPEG MUST BE LAST
 */
#ifdef BUILD_LOADER_JPEG
  ,"jpeg"
  ,"jpg"
#endif
};

EFL_START_TEST(evas_object_image_loader)
{
   Evas *e = _setup_evas();
   Evas_Object *o;
   Eina_Iterator *it;
   const Eina_File_Direct_Info *file;

   o = evas_object_image_add(e);

   it = eina_file_direct_ls(TESTS_IMG_DIR);
   EINA_ITERATOR_FOREACH(it, file)
     {
        Eina_Bool found = EINA_FALSE;
        unsigned int i;
        int w, h;

        for (i = 0; i < (sizeof (exts) / sizeof (exts[0])); i++)
          if (!strcasecmp(file->path + file->path_length - strlen(exts[i]),
                          exts[i]))
            {
               found = EINA_TRUE;
               break;
            }

        if (!found) continue;

        evas_object_image_file_set(o, file->path, NULL);
        fail_if(evas_object_image_load_error_get(o) != EVAS_LOAD_ERROR_NONE);
        evas_object_image_size_get(o, &w, &h);
        fail_if(w == 0 || h == 0);
     }
   eina_iterator_free(it);

   evas_object_del(o);

   evas_free(e);
}
EFL_END_TEST

typedef struct _Orientation_Test_Res Orientation_Test_Res;
struct _Orientation_Test_Res {
   const char *img;
   const char *desc;
   Evas_Image_Orient orient;
   int (*compare_func)(const uint32_t *d1, const uint32_t *d2, int w2, int h2);
};

typedef struct _orient_Test {
   Evas_Image_Orient orient;
   const char *desc;
   int (*compare_func)(const uint32_t *d1, const uint32_t *d2, int w2, int h2);
} Orient_Test;

static int _compare_img(const uint32_t *d1, const uint32_t *d2, int w2, int h2)
{
   return memcmp(d1, d2, w2 * h2 * 4);
}

static int _compare_img_90(const uint32_t *d1, const uint32_t *d2, int w2, int h2)
{
   int x, y;
   int r;

   for (x = w2 - 1; x >= 0; x--)
     {
        for (y = 0; y < h2; y++)
          {
             r = *d1 - *(d2 + x + y * w2);
             if (r != 0) return r;
             d1++;
          }
     }

   return 0;
}

static int _compare_img_180(const uint32_t *d1, const uint32_t *d2, int w2, int h2)
{
   int x, y;
   int r;

   for (y = h2 - 1; y >= 0; y--)
     {
        for (x = w2 - 1; x >= 0; x--)
          {
             r = *d1 - *(d2 + x + y * w2);
             if (r != 0) return r;
             d1++;
          }
     }

   return 0;
}

static int _compare_img_270(const uint32_t *d1, const uint32_t *d2, int w2, int h2)
{
   int x, y;
   int r;

   for (x = 0; x < w2; x++)
     {
        for (y = h2 - 1; y >= 0; y--)
          {
             r = *d1 - *(d2 + x + y * w2);
             if (r != 0) return r;
             d1++;
          }
     }

   return 0;
}

static int _compare_img_flip_h(const uint32_t *d1, const uint32_t *d2, int w2, int h2)
{
   int x, y;
   int r;

   for (y = 0; y < h2; y++)
     {
        for (x = w2 - 1; x >= 0; x--)
          {
             r = *d1 - *(d2 + x + y * w2);
             if (r != 0) return r;
             d1++;
          }
     }

   return 0;
}

static int _compare_img_flip_v(const uint32_t *d1, const uint32_t *d2, int w2, int h2)
{
   int x, y;
   int r;

   for (y = h2 - 1; y >= 0; y--)
     {
        for (x = 0; x < w2; x++)
          {
             r = *d1 - *(d2 + x + y * w2);
             if (r != 0) return r;
             d1++;
          }
     }

   return 0;
}

static int _compare_img_transpose(const uint32_t *d1, const uint32_t *d2, int w2, int h2)
{
   int x, y;
   int r;

   for (x = 0; x < w2; x++)
     {
        for (y = 0; y < h2; y++)
          {
             r = *d1 - *(d2 + x + y * w2);
             if (r != 0) return r;
             d1++;
          }
     }

   return 0;
}

static int _compare_img_transverse(const uint32_t *d1, const uint32_t *d2, int w2, int h2)
{
   int x, y;
   int r;

   for (x = w2 - 1; x >= 0; x--)
     {
        for (y = h2 - 1; y >= 0; y--)
          {
             r = *d1 - *(d2 + x + y * w2);
             if (r != 0) return r;
             d1++;
          }
     }

   return 0;
}

EFL_START_TEST(evas_object_image_loader_orientation)
{
   Evas *e = _setup_evas();
   Evas_Object *orig, *rot;
   static const Orientation_Test_Res res[] = {
     { TESTS_IMG_DIR"/Light_exif.jpg", "Original", EVAS_IMAGE_ORIENT_NONE, _compare_img },
     { TESTS_IMG_DIR"/Light_exif_flip_h.jpg", "Flip horizontally", EVAS_IMAGE_FLIP_HORIZONTAL, _compare_img_flip_h },
     { TESTS_IMG_DIR"/Light_exif_180.jpg", "Rotate 180° CW", EVAS_IMAGE_ORIENT_180, _compare_img_180 },
     { TESTS_IMG_DIR"/Light_exif_flip_v.jpg", "Flip vertically", EVAS_IMAGE_FLIP_VERTICAL, _compare_img_flip_v },
     { TESTS_IMG_DIR"/Light_exif_transpose.jpg", "Transpose", EVAS_IMAGE_FLIP_TRANSPOSE, _compare_img_transpose },
     { TESTS_IMG_DIR"/Light_exif_90.jpg", "Rotate 90° CW", EVAS_IMAGE_ORIENT_90, _compare_img_90 },
     { TESTS_IMG_DIR"/Light_exif_transverse.jpg", "Transverse", EVAS_IMAGE_FLIP_TRANSVERSE, _compare_img_transverse },
     { TESTS_IMG_DIR"/Light_exif_270.jpg", "Rotate 90° CCW", EVAS_IMAGE_ORIENT_270, _compare_img_270 },
     { NULL, NULL, EVAS_IMAGE_ORIENT_NONE, NULL }
   };
   int w, h, r_w, r_h;
   const uint32_t *d, *r_d;
   int i;

   orig = evas_object_image_add(e);
   evas_object_image_file_set(orig, TESTS_IMG_DIR"/Light.jpg", NULL);
   fail_if(evas_object_image_load_error_get(orig) != EVAS_LOAD_ERROR_NONE);
   evas_object_image_size_get(orig, &w, &h);
   fail_if(w == 0 || h == 0);
   d = evas_object_image_data_get(orig, EINA_FALSE);

   rot = evas_object_image_add(e);
   evas_object_image_load_orientation_set(rot, EINA_TRUE);

   for (i = 0; res[i].img; i++)
     {
        evas_object_image_file_set(rot, res[i].img, NULL);
        fail_if(evas_object_image_load_error_get(rot) != EVAS_LOAD_ERROR_NONE);
        evas_object_image_size_get(rot, &r_w, &r_h);
        fail_if(w * h != r_w * r_h);

        r_d = evas_object_image_data_get(rot, EINA_FALSE);

        fail_if(res[i].compare_func(d, r_d, r_w, r_h),
                "Image orientation test failed: exif orientation flag: %s\n", res[i].desc);
     }

   evas_object_del(orig);
   evas_object_del(rot);

   evas_free(e);
}
EFL_END_TEST

EFL_START_TEST(evas_object_image_orient)
{
   Evas *e = _setup_evas();
   Evas_Object *orig;
   Orient_Test res[] = {
       {EVAS_IMAGE_ORIENT_0, "Original", _compare_img},
       {EVAS_IMAGE_FLIP_HORIZONTAL, "Flip horizontally", _compare_img_flip_h},
       {EVAS_IMAGE_ORIENT_180, "Rotate 180° CW", _compare_img_180},
       {EVAS_IMAGE_FLIP_VERTICAL, "Flip vertically", _compare_img_flip_v},
       {EVAS_IMAGE_FLIP_TRANSPOSE, "Transpose", _compare_img_transpose},
       {EVAS_IMAGE_ORIENT_90, "Rotate 90° CW", _compare_img_90},
       {EVAS_IMAGE_FLIP_TRANSVERSE, "Transverse", _compare_img_transverse},
       {EVAS_IMAGE_ORIENT_270, "Rotate 90° CCW", _compare_img_270},
       {0, NULL, NULL}
   };
   int w, h, r_w, r_h;
   uint32_t *d, *r_d;
   int i;

   orig = evas_object_image_add(e);
   evas_object_image_file_set(orig, TESTS_IMG_DIR"/Light.jpg", NULL);
   fail_if(evas_object_image_load_error_get(orig) != EVAS_LOAD_ERROR_NONE);
   evas_object_image_size_get(orig, &w, &h);
   fail_if(w == 0 || h == 0);

   d = malloc(w * h * 4);
   fail_if(!d);
   r_d = evas_object_image_data_get(orig, EINA_FALSE);
   memcpy(d, r_d, w * h * 4);

   for (i = 0; res[i].desc; i++)
     {
        evas_object_image_orient_set(orig, res[i].orient);
        fail_if(evas_object_image_orient_get(orig) != res[i].orient);
        evas_object_image_size_get(orig, &r_w, &r_h);
        fail_if(w * h != r_w * r_h);

        r_d = evas_object_image_data_get(orig, EINA_FALSE);

        fail_if(res[i].compare_func(d, r_d, r_w, r_h),
                "Image orientation test failed: orient flag: %s\n", res[i].desc);
     }

   evas_object_del(orig);

   evas_free(e);
}
EFL_END_TEST

#ifdef BUILD_LOADER_TGV
EFL_START_TEST(evas_object_image_tgv_loader_data)
{
   Evas *e = _setup_evas();
   Evas_Object *obj, *ref;
   Eina_Strbuf *str;

   const char *files[] = {
     "Light-50",
     "Pic1-10",
     "Pic1-100",
     "Pic1-50",
     "Pic4-10",
     "Pic4-100",
     "Pic4-50",
     "Train-10"
   };
   unsigned int i;

   obj = evas_object_image_add(e);
   ref = evas_object_image_add(e);
   str = eina_strbuf_new();

   for (i = 0; i < sizeof (files) / sizeof (files[0]); i++)
     {
        int w, h, r_w, r_h;
        const uint32_t *d, *r_d;

        eina_strbuf_append_printf(str, "%s/%s.tgv", TESTS_IMG_DIR, files[i]);
        evas_object_image_file_set(obj, eina_strbuf_string_get(str), NULL);
        fail_if(evas_object_image_load_error_get(obj) != EVAS_LOAD_ERROR_NONE);
        evas_object_image_size_get(obj, &w, &h);
        d = evas_object_image_data_get(obj, EINA_FALSE);

        eina_strbuf_reset(str);

        eina_strbuf_append_printf(str, "%s/%s.png", TESTS_IMG_DIR, files[i]);
        evas_object_image_file_set(ref, eina_strbuf_string_get(str), NULL);
        fail_if(evas_object_image_load_error_get(ref) != EVAS_LOAD_ERROR_NONE);
        evas_object_image_size_get(ref, &r_w, &r_h);
        r_d = evas_object_image_data_get(ref, EINA_FALSE);

        eina_strbuf_reset(str);

        fail_if(w != r_w || h != r_h);
        fail_if(memcmp(d, r_d, w * h * 4));
     }

   evas_object_del(obj);
   evas_object_del(ref);

   eina_strbuf_free(str);

   evas_free(e);
}
EFL_END_TEST
#endif

EFL_START_TEST(evas_object_image_all_loader_data)
{
   Evas *e = _setup_evas();
   Evas_Object *obj, *ref;
   Eina_Strbuf *str;
   struct stat st;
   int w, h, s, r_w, r_h, r_s;
   const uint32_t *d, *r_d;
   Evas_Colorspace c, r_c;

   obj = evas_object_image_add(e);
   ref = evas_object_image_add(e);
   str = eina_strbuf_new();

   eina_strbuf_reset(str);

   eina_strbuf_append_printf(str, "%s/Pic4-%s.png", TESTS_IMG_DIR, exts[_i]);

   if (stat(eina_strbuf_string_get(str), &st) != 0) goto end;

   evas_object_image_file_set(obj, eina_strbuf_string_get(str), NULL);
   fail_if(evas_object_image_load_error_get(obj) != EVAS_LOAD_ERROR_NONE);
   evas_object_image_size_get(obj, &w, &h);
   s = evas_object_image_stride_get(obj);
   c = evas_object_image_colorspace_get(obj);
   d = evas_object_image_data_get(obj, EINA_FALSE);

   eina_strbuf_reset(str);

   eina_strbuf_append_printf(str, "%s/Pic4.%s", TESTS_IMG_DIR, exts[_i]);
   evas_object_image_file_set(ref, eina_strbuf_string_get(str), NULL);
   fail_if(evas_object_image_load_error_get(ref) != EVAS_LOAD_ERROR_NONE);
   evas_object_image_size_get(ref, &r_w, &r_h);
   r_s = evas_object_image_stride_get(ref);
   r_c = evas_object_image_colorspace_get(ref);
   r_d = evas_object_image_data_get(ref, EINA_FALSE);

   fail_if(w != r_w || h != r_h);
   fail_if(s != r_s);
   fail_if(c != r_c);
   fail_if(w*4 != s);
   if (strcmp(exts[_i], "jpeg") == 0 || strcmp(exts[_i], "jpg") == 0)
     {
        //jpeg norm allows a variation of 1 bit per component
        for (int j = 0; j < s * h; j++)
          {
             fail_if(abs(((char*)d)[j] - ((char*)r_d)[j]) > 1);
          }
     }
   else
     {
        fail_if(memcmp(d, r_d, w * h * 4));
     }
end:
   evas_object_del(obj);
   evas_object_del(ref);

   eina_strbuf_free(str);

   evas_free(e);
}
EFL_END_TEST

const char *buggy[] = {
  "BMP301K"
};

EFL_START_TEST(evas_object_image_buggy)
{
   Evas *e = _setup_evas();
   Evas_Object *obj, *ref;
   Eina_Strbuf *str;
   unsigned int i, j;

   obj = evas_object_image_add(e);
   ref = evas_object_image_add(e);
   str = eina_strbuf_new();

   for (i = 0; i < sizeof (buggy) / sizeof (buggy[0]); i++)
     {
        for (j = 0; j < sizeof (exts) / sizeof (exts[0]); j++)
          {
             struct stat st;
             int w, h, r_w, r_h;
             const uint32_t *d, *r_d;

             eina_strbuf_reset(str);

             if (!strcmp(exts[j], "png")) continue ;

             eina_strbuf_append_printf(str, "%s/%s.%s", TESTS_IMG_DIR,
                                       buggy[i], exts[j]);

             if (stat(eina_strbuf_string_get(str), &st) != 0) continue;

             evas_object_image_file_set(obj, eina_strbuf_string_get(str), NULL);
             fail_if(evas_object_image_load_error_get(obj) != EVAS_LOAD_ERROR_NONE);
             evas_object_image_size_get(obj, &w, &h);
             d = evas_object_image_data_get(obj, EINA_FALSE);

             eina_strbuf_reset(str);

             eina_strbuf_append_printf(str, "%s/%s.png", TESTS_IMG_DIR,
                                       buggy[i]);
             evas_object_image_file_set(ref, eina_strbuf_string_get(str), NULL);
             fail_if(evas_object_image_load_error_get(ref) != EVAS_LOAD_ERROR_NONE);
             evas_object_image_size_get(ref, &r_w, &r_h);
             r_d = evas_object_image_data_get(ref, EINA_FALSE);

             fail_if(w != r_w || h != r_h);
             fail_if(memcmp(d, r_d, w * h * 4));
          }
     }

   evas_object_del(obj);
   evas_object_del(ref);

   eina_strbuf_free(str);

   evas_free(e);
}
EFL_END_TEST

static void check_rotate_region(Evas_Image_Orient orientation, int *r_x, int *r_y, int *r_w, int *r_h, int w, int h)
{
   int tmp;

   switch (orientation)
     {
      case EVAS_IMAGE_FLIP_HORIZONTAL:
         *r_x = w - *r_w;
         break;
      case EVAS_IMAGE_FLIP_VERTICAL:
         *r_y = h - *r_h;
         break;
      case EVAS_IMAGE_ORIENT_180:
        *r_x = w - *r_w;
        *r_y = h - *r_h;
        break;
      case EVAS_IMAGE_ORIENT_90:
        tmp = *r_x;
        *r_x = w - (*r_y + *r_h);
        *r_y = tmp;
        tmp = *r_w;
        *r_w = *r_h;
        *r_h = tmp;
        break;
      case EVAS_IMAGE_ORIENT_270:
        tmp = *r_y;
        *r_y = h - (*r_x + *r_w);
        *r_x = tmp;
        tmp = *r_w;
        *r_w = *r_h;
        *r_h = tmp;
        break;
      case EVAS_IMAGE_FLIP_TRANSPOSE:
        tmp = *r_x;
        *r_x = *r_y;
        *r_y = tmp;
        tmp = *r_w;
        *r_w = *r_h;
        *r_h = tmp;
        break;
      case EVAS_IMAGE_FLIP_TRANSVERSE:
        tmp = *r_x;
        *r_x = w - (*r_y + *r_h);
        *r_y = h - (tmp + *r_w);
        tmp = *r_w;
        *r_w = *r_h;
        *r_h = tmp;
        break;
      case EVAS_IMAGE_ORIENT_0:
         break;
     }
}


EFL_START_TEST(evas_object_image_partially_load_orientation)
{
   static const Orientation_Test_Res res[] = {
     { TESTS_IMG_DIR"/Light_exif.jpg", "Original", EVAS_IMAGE_ORIENT_NONE, _compare_img },
     { TESTS_IMG_DIR"/Light_exif_flip_h.jpg", "Flip horizontally", EVAS_IMAGE_FLIP_HORIZONTAL, _compare_img_flip_h },
     { TESTS_IMG_DIR"/Light_exif_180.jpg", "Rotate 180° CW", EVAS_IMAGE_ORIENT_180, _compare_img_180 },
     { TESTS_IMG_DIR"/Light_exif_flip_v.jpg", "Flip vertically", EVAS_IMAGE_FLIP_VERTICAL, _compare_img_flip_v },
     { TESTS_IMG_DIR"/Light_exif_transpose.jpg", "Transpose", EVAS_IMAGE_FLIP_TRANSPOSE, _compare_img_transpose },
     { TESTS_IMG_DIR"/Light_exif_90.jpg", "Rotate 90° CW", EVAS_IMAGE_ORIENT_90, _compare_img_90 },
     { TESTS_IMG_DIR"/Light_exif_transverse.jpg", "Transverse", EVAS_IMAGE_FLIP_TRANSVERSE, _compare_img_transverse },
     { TESTS_IMG_DIR"/Light_exif_270.jpg", "Rotate 90° CCW", EVAS_IMAGE_ORIENT_270, _compare_img_270 },
     { NULL, NULL, EVAS_IMAGE_ORIENT_NONE, NULL }
   };

   Evas *e = _setup_evas();
   Evas_Object *orig, *rot;
   int x, y, w, h, r_w, r_h;
   int region_x, region_y, region_w, region_h;
   const uint32_t *d, *r_d;
   int i;

   orig = evas_object_image_add(e);
   evas_object_image_file_set(orig, TESTS_IMG_DIR"/Light.jpg", NULL);
   fail_if(evas_object_image_load_error_get(orig) != EVAS_LOAD_ERROR_NONE);
   evas_object_image_size_get(orig, &w, &h);
   x = 0; y = 0; w = w / 2; h = h / 2;;
   evas_object_image_load_region_set(orig, x, y, w, h);
   evas_object_image_size_get(orig, &w, &h);
   d = evas_object_image_data_get(orig, EINA_FALSE);
   for (i = 0; res[i].img; i++)
     {
        region_x = x;
        region_y = y;
        region_w = w;
        region_h = h;
        rot = evas_object_image_add(e);
        evas_object_image_load_orientation_set(rot, EINA_TRUE);
        evas_object_image_file_set(rot, res[i].img, NULL);
        fail_if(evas_object_image_load_error_get(rot) != EVAS_LOAD_ERROR_NONE);
        evas_object_image_size_get(rot, &r_w, &r_h);
        check_rotate_region(res[i].orient, &region_x, &region_y, &region_w, &region_h, r_w, r_h);
        evas_object_image_load_region_set(rot, region_x, region_y, region_w, region_h);
        evas_object_image_size_get(rot, &r_w, &r_h);
        fail_if(w * h != r_w * r_h);
        r_d = evas_object_image_data_get(rot, EINA_FALSE);
        fail_if(res[i].compare_func(d, r_d, r_w, r_h),
                "Image orientation partially load test failed: exif orientation flag: %s\n", res[i].desc);
        evas_object_del(rot);
     }

   evas_object_del(orig);

   evas_free(e);
}
EFL_END_TEST

static int
_file_to_memory(const char *filename, char **result)
{
   int size;
   FILE *f;

   f = fopen(filename, "rb");
   if (f == NULL)
     {
        *result = NULL;
        return -1;
     }

   fseek(f, 0, SEEK_END);
   size = ftell(f);
   fseek(f, 0, SEEK_SET);
   *result = (char *)malloc(size + 1);
   if ((size_t)size != fread(*result, sizeof(char), size, f))
     {
        free(*result);
        fclose(f);
        return -1;
     }
   fclose(f);
   (*result)[size] = 0;
   return size;
}

static const Efl_Gfx_Image_Stretch_Region hsz[] = { { 8, 8 }, { 16, 555 } };
static const Efl_Gfx_Image_Stretch_Region vsz[] = { { 8, 8 }, { 16, 512 } };

EFL_START_TEST(evas_object_image_cached_data_comparision)
{
   int i;
   int size, size2;
   char *content, *content2;
   int w, h, n_w, n_h;
   int w2, h2, n_w2, n_h2;
   const uint32_t *d, *n_d;
   const uint32_t *d2, *n_d2;
   const char *img_path, *img_path2;
   Evas_Object *img, *img2;
   Eina_Rect region;

   Evas *e = _setup_evas();

   img_path = TESTS_IMG_DIR "/Pic1.png";
   size = _file_to_memory(img_path, &content);
   fail_if(size < 0);

   img = evas_object_image_add(e);
   evas_object_image_memfile_set(img, content, size, "png", NULL);
   evas_object_image_fill_set(img, 0, 0, 250, 250);
   evas_object_resize(img, 250, 250);
   evas_object_move(img, 0, 0);
   evas_object_show(img);

   evas_object_image_size_get(img, &w, &h);
   d = evas_object_image_data_get(img, EINA_FALSE);

   img_path2 = TESTS_IMG_DIR "/Pic4.png";
   size2 = _file_to_memory(img_path2, &content2);

   img2 = evas_object_image_add(e);
   evas_object_image_memfile_set(img2, content2, size2, "png", NULL);
   evas_object_image_fill_set(img2, 0, 0, 250, 250);
   evas_object_resize(img2, 250, 250);
   evas_object_move(img2, 250, 250);
   evas_object_show(img2);

   evas_object_image_size_get(img, &w2, &h2);
   d2 = evas_object_image_data_get(img, EINA_FALSE);

   for (i = 0; i < 100; i++)
     {
        evas_object_del(img);
        evas_object_del(img2);

        img = evas_object_image_add(e);
        evas_object_image_memfile_set(img, content, size, "png", NULL);
        evas_object_image_fill_set(img, 0, 0, 250, 250);
        evas_object_resize(img, 250, 250);
        evas_object_move(img, 0, 0);
        evas_object_show(img);

        evas_object_image_size_get(img, &n_w, &n_h);
        n_d = evas_object_image_data_get(img, EINA_FALSE);

        fail_if(w != n_w || h != n_h);
        fail_if(memcmp(d, n_d, w * h * 4));

        img2 = evas_object_image_add(e);
        evas_object_image_memfile_set(img2, content2, size2, "png", NULL);
        evas_object_image_fill_set(img2, 0, 0, 250, 250);
        evas_object_resize(img2, 250, 250);
        evas_object_move(img2, 250, 250);
        evas_object_show(img2);

        evas_object_image_size_get(img, &n_w2, &n_h2);
        n_d2 = evas_object_image_data_get(img, EINA_FALSE);

        fail_if(w2 != n_w2 || h2 != n_h2);
        fail_if(memcmp(d2, n_d2, w2 * h2 * 4));
     }

   region = efl_gfx_image_content_region_get(img);
   ck_assert_int_eq(region.x, 0);
   ck_assert_int_eq(region.y, 0);
   ck_assert_int_eq(region.w, 250);
   ck_assert_int_eq(region.h, 250);
   efl_gfx_image_border_insets_set(img, 7, 14, 5, 10);
   region = efl_gfx_image_content_region_get(img);
   ck_assert_int_eq(region.x, 7);
   ck_assert_int_eq(region.y, 5);
   ck_assert_int_eq(region.w, 250 - 7 - 14);
   ck_assert_int_eq(region.h, 250 - 5 - 10);

   efl_gfx_image_stretch_region_set(img, EINA_C_ARRAY_ITERATOR_NEW(hsz),
                                    EINA_C_ARRAY_ITERATOR_NEW(vsz));
   region = efl_gfx_image_content_region_get(img);
   ck_assert_int_eq(region.x, 8);
   ck_assert_int_eq(region.y, 8);
   ck_assert_int_eq(region.w, 120);
   ck_assert_int_eq(region.h, 77);
}
EFL_END_TEST

EFL_START_TEST(evas_object_image_api)
{
   Evas *e = _setup_evas();
   Evas_Object *o;
   void *pix;
   int w, h;

   o = evas_object_image_filled_add(e);
   /* test file load */
   evas_object_image_file_set(o, TESTS_IMG_DIR"/Light.jpg", NULL);
   ck_assert(!!efl_file_get(o));
   pix = evas_object_image_data_get(o, EINA_FALSE);
   ck_assert(!!pix);
   evas_object_image_size_get(o, &w, &h);
   ck_assert(w && h);
   /* test file unload */
   evas_object_image_file_set(o, NULL, NULL);
   ck_assert(!efl_file_get(o));
   pix = evas_object_image_data_get(o, EINA_FALSE);
   ck_assert(!pix);
   evas_object_image_size_get(o, &w, &h);
   ck_assert(!w && !h);
   /* test file load after unload */
   evas_object_image_file_set(o, TESTS_IMG_DIR"/Light.jpg", NULL);
   ck_assert(!!efl_file_get(o));
   pix = evas_object_image_data_get(o, EINA_FALSE);
   ck_assert(!!pix);
   evas_object_image_size_get(o, &w, &h);
   ck_assert(w && h);

   evas_free(e);
}
EFL_END_TEST

EFL_START_TEST(evas_object_image_defaults)
{
   Evas *e = _setup_evas();
   Evas_Object *o;
   int x, y, w, h;

   /* test legacy defaults */
   o = evas_object_image_add(e);
   fail_if(evas_object_image_filled_get(o));
   evas_object_image_fill_get(o, &x, &y, &w, &h);
   fail_if(x || y || w || h);
   efl_del(o);

   o = evas_object_image_filled_add(e);
   fail_if(!evas_object_image_filled_get(o));
   efl_del(o);

   /* test eo defaults */
   o = efl_add(EFL_CANVAS_IMAGE_CLASS, e);
   fail_if(!efl_gfx_fill_auto_get(o));
   efl_del(o);

   evas_free(e);
}
EFL_END_TEST

// FIXME: belongs to another file
EFL_START_TEST(evas_object_image_map_unmap)
{
   Evas *e = _setup_evas();
   Evas_Object *o, *o2;
   int stride, w, h;
   Efl_Gfx_Colorspace cs;
   Eina_Tmpstr *tmp;
   int fd;
   uint32_t *data32;
   Eina_Bool all_white = 1, all_transparent = 1;
   Eina_Rw_Slice slice;
   Eina_Rect r, r2;
   Eina_Size2D sz;

   const char *imgpath = TESTS_IMG_DIR "/Pic4.png";

   o = efl_add(EFL_CANVAS_IMAGE_CLASS, e);
   efl_file_simple_load(o, imgpath, NULL);
   sz = efl_gfx_view_size_get(o);
   cs = efl_gfx_buffer_colorspace_get(o);

   w = sz.w;
   h = sz.h;
   r.x = (w / 4) & ~3;
   r.y = (h / 4) & ~3;
   r.w = (w / 2) & ~3;
   r.h = (h / 2) & ~3;

   // same cspace, full image
   slice = efl_gfx_buffer_map(o, EFL_GFX_BUFFER_ACCESS_MODE_READ, NULL, cs, 0, &stride);
   fail_if(!slice.len || !slice.mem);
   fail_if(!stride);
   efl_gfx_buffer_unmap(o, slice);

   // same cspace, partial image
   slice = efl_gfx_buffer_map(o, EFL_GFX_BUFFER_ACCESS_MODE_READ, &r, cs, 0, &stride);
   fail_if(!slice.len || !slice.mem);
   fail_if(!stride);
   efl_gfx_buffer_unmap(o, slice);

   // argb cspace, full image
   slice = efl_gfx_buffer_map(o, EFL_GFX_BUFFER_ACCESS_MODE_READ, NULL, EFL_GFX_COLORSPACE_ARGB8888, 0, &stride);
   fail_if(!slice.len || !slice.mem);
   fail_if(!stride);
   data32 = slice.mem;
   for (unsigned int k = 0; (k < slice.len) && (all_white || all_transparent); k++)
     {
        if (data32[k])
          all_transparent = 0;
        if (data32[k] != 0xFFFFFFFF)
          all_white = 0;
     }
   fail_if(all_white || all_transparent);
   efl_gfx_buffer_unmap(o, slice);

   // argb cspace, partial image
   slice = efl_gfx_buffer_map(o, EFL_GFX_BUFFER_ACCESS_MODE_READ, &r, EFL_GFX_COLORSPACE_ARGB8888, 0, &stride);
   fail_if(!slice.len || !slice.mem);
   fail_if(!stride);
   efl_gfx_buffer_unmap(o, slice);

   // argb cspace, partial image, write
   slice = efl_gfx_buffer_map(o, EFL_GFX_BUFFER_ACCESS_MODE_WRITE, &r, EFL_GFX_COLORSPACE_ARGB8888, 0, &stride);
   fail_if(!slice.len || !slice.mem);
   fail_if(!stride);
   data32 = slice.mem;
   for (int y = 0; y < r.h; y += 2)
     for (int x = 0; x < r.w; x++)
       {
          data32[y*stride/4 + x] = 0xFF00FF00;
          data32[(y+1)*stride/4 + x] = 0xFFFF0000;
       }
   efl_gfx_buffer_unmap(o, slice);

   // argb cspace, partial image, write
   r2 = r;
   r2.h = r.h / 2;
   slice = efl_gfx_buffer_map(o, EFL_GFX_BUFFER_ACCESS_MODE_READ | EFL_GFX_BUFFER_ACCESS_MODE_WRITE,
                              &r2, EFL_GFX_COLORSPACE_GRY8, 0, &stride);
   fail_if(!slice.len || !slice.mem);
   fail_if(!stride);
   for (int y = 0; y < r.h / 4; y++)
     for (int x = 0; x < r.w; x++)
       slice.bytes[y*stride + x] = x & 0xFF;
   efl_gfx_buffer_unmap(o, slice);

   // save file, verify its pixels
   fd = eina_file_mkstemp("/tmp/evas-test.XXXXXX.png", &tmp);
   fail_if(fd <= 0);
   fail_if(close(fd));
   if (efl_file_save(o, tmp, NULL, NULL))
     {
        Eina_Rw_Slice sorig, sdest;
        int w2, h2, stride2, x, y;
        uint32_t *dest, *orig;

        o2 = efl_add(EFL_CANVAS_IMAGE_CLASS, e);
        efl_file_simple_load(o2, tmp, NULL);
        sz = efl_gfx_view_size_get(o);
        w2 = sz.w;
        h2 = sz.h;

        // unlink now to not leave any crap after failing the test
        unlink(tmp);

        fail_if(w2 != w);
        fail_if(h2 != h);

        sorig = efl_gfx_buffer_map(o, EFL_GFX_BUFFER_ACCESS_MODE_READ, NULL, EFL_GFX_COLORSPACE_ARGB8888, 0, &stride);
        fail_if(!sorig.len || !sorig.mem);
        fail_if(!stride);

        sdest = efl_gfx_buffer_map(o2, EFL_GFX_BUFFER_ACCESS_MODE_READ, NULL, EFL_GFX_COLORSPACE_ARGB8888, 0, &stride2);
        fail_if(sorig.len != sdest.len);
        fail_if(stride2 != stride);

        dest = sdest.mem;
        orig = sorig.mem;

        // first quarter: same image
        for (y = 0; y < h / 4; y++)
          for (x = 0; x < w; x++)
            fail_if(orig[y*stride/4 + x] != dest[y*stride2/4+x], "pixels differ [1]");

        // middle zone top: grey gradient
        for (y = r.y; y < (r.y + r.h / 4); y++)
          for (x = r.x; x < r.x + r.w; x++)
            {
               uint32_t c = (x - r.x) & 0xFF;
               c = 0xFF000000 | (c << 16) | (c << 8) | c;
               fail_if(dest[y*stride/4 + x] != c, "pixels differ [2]");
            }

        // middle zone: grey image
        for (y = (r.y + r.h / 4 + 1); y < (r.y + r.h / 2); y++)
          for (x = r.x; x < r.x + r.w; x++)
            {
               uint32_t c = dest[y*stride/4 + x] & 0xFF;
               c = 0xFF000000 | (c << 16) | (c << 8) | c;
               fail_if(dest[y*stride/4 + x] != c, "pixels differ [2bis]");
            }

        // next lines: green & red
        y = r.y + r.h / 2;
        for (x = r.x; x < r.x + r.w; x++)
          {
             fail_if(dest[y*stride/4 + x] != 0xFF00FF00, "pixels differ [3]");
             fail_if(dest[(y+1)*stride/4 + x] != 0xFFFF0000, "pixels differ [4]");
          }

        efl_gfx_buffer_unmap(o, sorig);
        efl_gfx_buffer_unmap(o2, sdest);
     }
   else unlink(tmp);
   eina_tmpstr_del(tmp);

   // TODO: test copy-on-write
   // TODO: test more color conversions

   evas_free(e);
}
EFL_END_TEST

#if BUILD_LOADER_JP2K
EFL_START_TEST(evas_object_image_jp2k_loader_data)
{
   Evas *e = _setup_evas();
   Evas_Object *obj, *ref;
   Eina_Strbuf *str;

   const char *files[] = {
     "train.j2k",
     "flower.jp2"
   };
   unsigned int i;

   obj = evas_object_image_add(e);
   ref = evas_object_image_add(e);
   str = eina_strbuf_new();

   for (i = 0; i < sizeof (files) / sizeof (files[0]); i++)
     {
        int w, h, r_w, r_h;
        const uint32_t *d, *r_d;

        eina_strbuf_append_printf(str, "%s/%s", TESTS_IMG_DIR, files[i]);
        evas_object_image_file_set(obj, eina_strbuf_string_get(str), NULL);
        fail_if(evas_object_image_load_error_get(obj) != EVAS_LOAD_ERROR_NONE);
        evas_object_image_size_get(obj, &w, &h);
        d = evas_object_image_data_get(obj, EINA_FALSE);

        eina_strbuf_reset(str);

        eina_strbuf_append_printf(str, "%s/%s.png", TESTS_IMG_DIR, files[i]);
        evas_object_image_file_set(ref, eina_strbuf_string_get(str), NULL);
        fail_if(evas_object_image_load_error_get(ref) != EVAS_LOAD_ERROR_NONE);
        evas_object_image_size_get(ref, &r_w, &r_h);
        r_d = evas_object_image_data_get(ref, EINA_FALSE);

        eina_strbuf_reset(str);

        fail_if(w != r_w || h != r_h);
        fail_if(memcmp(d, r_d, w * h * 4));
     }

   evas_object_del(obj);
   evas_object_del(ref);

   eina_strbuf_free(str);

   evas_free(e);
}
EFL_END_TEST
#endif

EFL_START_TEST(evas_object_image_9patch)
{
   Evas *e = _setup_evas();
   Evas *sub_e;
   Ecore_Evas *ee, *sub_ee;
   Evas_Object *obj, *cmp, *ref;
   Eina_Strbuf *str;

   const char *files[] = {
     "9patch_test.9.png"
   };
   unsigned int i;

   ee = ecore_evas_ecore_evas_get(e);

   cmp = ecore_evas_object_image_new(ee);
   evas_object_image_filled_set(cmp, EINA_TRUE);
   evas_object_image_size_set(cmp, 1024, 1024);
   evas_object_resize(cmp, 1024, 1024);
   evas_object_show(cmp);

   sub_ee = ecore_evas_object_ecore_evas_get(cmp);
   sub_e = ecore_evas_object_evas_get(cmp);

   ecore_evas_alpha_set(sub_ee, EINA_TRUE);

   obj = evas_object_rectangle_add(sub_e);
   evas_object_color_set(obj, 0, 0, 0, 0);
   evas_object_move(obj, 0, 0);
   evas_object_resize(obj, 1024, 1024);
   evas_object_show(obj);

   obj = evas_object_image_filled_add(sub_e);
   evas_object_image_alpha_set(obj, 1);
   evas_object_move(obj, 0, 0);
   evas_object_resize(obj, 1024, 1024);
   ecore_evas_resize(sub_ee, 1024, 1024);
   evas_object_show(obj);

   Evas_Object *rect = evas_object_rectangle_add(sub_e);
   evas_object_color_set(rect, 128, 0, 0, 128);
   evas_object_show(rect);

   ref = evas_object_image_add(e);
   str = eina_strbuf_new();

   for (i = 0; i < sizeof (files) / sizeof (files[0]); i++)
     {
        Eina_Rect content;
        int r_w, r_h;
        const uint32_t *d, *r_d;

        eina_strbuf_append_printf(str, "%s/%s", TESTS_IMG_DIR, files[i]);
        evas_object_image_file_set(obj, eina_strbuf_string_get(str), NULL);
        ck_assert_int_eq(evas_object_image_load_error_get(obj), EVAS_LOAD_ERROR_NONE);
        content = efl_gfx_image_content_region_get(obj);

        evas_object_move(rect, content.x, content.y);
        evas_object_resize(rect, content.w, content.h);

        eina_strbuf_reset(str);

        ecore_evas_manual_render(ee);

        d = evas_object_image_data_get(cmp, EINA_FALSE);

        eina_strbuf_append_printf(str, "%s/%s.png", TESTS_IMG_DIR, files[i]);
        evas_object_image_file_set(ref, eina_strbuf_string_get(str), NULL);
        ck_assert_int_eq(evas_object_image_load_error_get(ref), EVAS_LOAD_ERROR_NONE);
        evas_object_image_size_get(ref, &r_w, &r_h);
        r_d = evas_object_image_data_get(ref, EINA_FALSE);

        eina_strbuf_reset(str);

        fail_if(r_w != 1024 || r_h != 1024);
        for (int i = 0; i < r_w * r_h; i++)
          fail_if(((d[i] - r_d[i]) & 0xF8F8F8F8) != 0);
     }

   evas_object_del(obj);
   evas_object_del(ref);

   eina_strbuf_free(str);

   evas_free(e);
}
EFL_END_TEST

EFL_START_TEST(evas_object_image_save_from_proxy)
{
   Evas *e;
   Evas_Object *obj, *proxy, *ref;
   int w, h, r_w, r_h;
   const uint32_t *d, *r_d;
   const char *img_path, *img_path2;
   Eina_Bool ret;

   e = _setup_evas();
   img_path = TESTS_IMG_DIR "/Pic1.png";
   img_path2 = TESTS_IMG_DIR "/Pic1_saved.png";

   obj = evas_object_image_add(e);
   proxy = evas_object_image_add(e);
   ref = evas_object_image_add(e);

   evas_object_image_file_set(obj, img_path, NULL);
   fail_if(evas_object_image_load_error_get(obj) != EVAS_LOAD_ERROR_NONE);
   evas_object_image_size_get(obj, &w, &h);
   d = evas_object_image_data_get(obj, EINA_FALSE);

   evas_object_image_source_set(proxy, obj);
   ret = evas_object_image_save(proxy, img_path2, NULL, NULL);
   fail_if(!ret);

   evas_object_image_file_set(ref, img_path2, NULL);
   fail_if(evas_object_image_load_error_get(ref) != EVAS_LOAD_ERROR_NONE);
   evas_object_image_size_get(ref, &r_w, &r_h);
   r_d = evas_object_image_data_get(ref, EINA_FALSE);

   fail_if(w != r_w || h != r_h);
   fail_if(memcmp(d, r_d, w * h * 4));

   evas_object_del(proxy);
   evas_object_del(obj);
   evas_object_del(ref);

   remove(img_path2);

   evas_free(e);
}
EFL_END_TEST

static void
_preload(void *data, Evas *e EINA_UNUSED, Evas_Object *obj, void *event_info EINA_UNUSED)
{
   int *called = data;
   int w, h;

   *called = 1;
   evas_object_image_size_get(obj, &w, &h);
   ck_assert_int_ge(w, 1);
   ck_assert_int_ge(h, 1);
   ecore_main_loop_quit();
}

EFL_START_TEST(evas_object_image_load_head_skip)
{
   Evas *e;
   Evas_Object *obj;
   const char *img_path;
   int called = 0;

   e = _setup_evas();
   img_path = TESTS_IMG_DIR "/Pic1.png";

   obj = evas_object_image_filled_add(e);
   evas_object_resize(obj, 100, 100);

   evas_object_image_load_head_skip_set(obj, EINA_TRUE);
   evas_object_event_callback_add(obj, EVAS_CALLBACK_IMAGE_PRELOADED, _preload, &called);
   evas_object_image_file_set(obj, img_path, NULL);
   evas_object_image_preload(obj, EINA_FALSE);

   ck_assert(!efl_file_mmap_get(obj));
   ck_assert(!efl_file_loaded_get(obj));
   ecore_main_loop_begin();
   ck_assert_int_eq(called, 1);
   ck_assert(efl_file_loaded_get(obj));
   ck_assert(efl_file_mmap_get(obj));

   evas_free(e);
}
EFL_END_TEST

void evas_test_image_object(TCase *tc)
{
   tcase_add_test(tc, evas_object_image_api);
   tcase_add_test(tc, evas_object_image_defaults);
   tcase_add_test(tc, evas_object_image_loader);
   tcase_add_test(tc, evas_object_image_loader_orientation);
   tcase_add_test(tc, evas_object_image_orient);
#if BUILD_LOADER_PNG
# if BUILD_LOADER_TGV
   tcase_add_test(tc, evas_object_image_tgv_loader_data);
# endif
# if BUILD_LOADER_JP2K
   tcase_add_test(tc, evas_object_image_jp2k_loader_data);
# endif
#ifdef BUILD_LOADER_JPEG
   /* jpeg takes forever from manual value comparisons */
   tcase_add_loop_test(tc, evas_object_image_all_loader_data, 0, EINA_C_ARRAY_LENGTH(exts) - 2);
#else
   tcase_add_loop_test(tc, evas_object_image_all_loader_data, 0, EINA_C_ARRAY_LENGTH(exts));
#endif
   tcase_add_test(tc, evas_object_image_buggy);
   tcase_add_test(tc, evas_object_image_map_unmap);
#endif
   tcase_add_test(tc, evas_object_image_partially_load_orientation);
   tcase_add_test(tc, evas_object_image_cached_data_comparision);
   tcase_add_test(tc, evas_object_image_9patch);
   tcase_add_test(tc, evas_object_image_save_from_proxy);
   tcase_add_test(tc, evas_object_image_load_head_skip);
}


void evas_test_image_object2(TCase *tc)
{
#if BUILD_LOADER_PNG
#ifdef BUILD_LOADER_JPEG
   /* jpeg takes forever from manual value comparisons */
   tcase_add_loop_test(tc, evas_object_image_all_loader_data, EINA_C_ARRAY_LENGTH(exts) - 2, EINA_C_ARRAY_LENGTH(exts));
#endif
#endif
}