forked from enlightenment/efl
253 lines
9.4 KiB
C
253 lines
9.4 KiB
C
#ifdef HAVE_CONFIG_H
|
|
# include <config.h>
|
|
#endif
|
|
|
|
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
|
|
#ifdef _WIN32
|
|
#include "Evil.h"
|
|
#endif
|
|
|
|
#include <Eina.h>
|
|
#include <Eolian.h>
|
|
|
|
#include "eolian_suite.h"
|
|
|
|
static Eina_Bool
|
|
_files_compare (const char *ref_filename, const char *tmp_filename, const char *ext)
|
|
{
|
|
Eina_Bool result = EINA_FALSE;
|
|
|
|
FILE *tmp_file = NULL, *ref_file = NULL;
|
|
char *tmp_content = NULL, *ref_content = NULL;
|
|
|
|
char ifnbuf[PATH_MAX];
|
|
snprintf(ifnbuf, sizeof(ifnbuf), "%s.%s", tmp_filename, ext);
|
|
|
|
tmp_file = fopen(ifnbuf, "rb");
|
|
if (!tmp_file)
|
|
{
|
|
printf("Unable to open %s\n", ifnbuf);
|
|
goto end;
|
|
}
|
|
ref_file = fopen(ref_filename, "rb");
|
|
if (!ref_file)
|
|
{
|
|
printf("Unable to open %s\n", ref_filename);
|
|
goto end;
|
|
}
|
|
|
|
fseek(tmp_file, 0, SEEK_END);
|
|
long tmp_filesize = ftell(tmp_file);
|
|
if (tmp_filesize < 0) goto end;
|
|
fseek(tmp_file, 0, SEEK_SET);
|
|
tmp_content = malloc(tmp_filesize + 1);
|
|
if (fread(tmp_content, tmp_filesize, 1, tmp_file) != 1)
|
|
goto end;
|
|
tmp_content[tmp_filesize] = '\0';
|
|
while (tmp_content[tmp_filesize - 1] == '\n')
|
|
tmp_content[--tmp_filesize] = '\0';
|
|
|
|
fseek(ref_file, 0, SEEK_END);
|
|
long ref_filesize = ftell(ref_file);
|
|
if (ref_filesize < 0) goto end;
|
|
fseek(ref_file, 0, SEEK_SET);
|
|
ref_content = malloc(ref_filesize + 1);
|
|
if (fread(ref_content, ref_filesize, 1, ref_file) != 1)
|
|
goto end;
|
|
ref_content[ref_filesize] = '\0';
|
|
while (ref_content[ref_filesize - 1] == '\n')
|
|
ref_content[--ref_filesize] = '\0';
|
|
|
|
if (tmp_filesize != ref_filesize) goto end;
|
|
|
|
result = !memcmp(ref_content, tmp_content, ref_filesize);
|
|
end:
|
|
if (tmp_file) fclose(tmp_file);
|
|
if (ref_file) fclose(ref_file);
|
|
if (tmp_content) free(tmp_content);
|
|
if (ref_content) free(ref_content);
|
|
|
|
return result;
|
|
}
|
|
|
|
static void
|
|
_remove_ref(const char *base, const char *ext)
|
|
{
|
|
char ifnbuf[PATH_MAX];
|
|
if (snprintf(ifnbuf, sizeof(ifnbuf), "%s.%s", base, ext) > PATH_MAX)
|
|
{
|
|
printf("remove ref too long for buffer\n");
|
|
abort();
|
|
}
|
|
remove(ifnbuf);
|
|
}
|
|
|
|
static int
|
|
_eolian_gen_execute(const char *eo_filename, const char *options, const char *output_filename)
|
|
{
|
|
char command[PATH_MAX];
|
|
if (snprintf(command, PATH_MAX,
|
|
EOLIAN_GEN" %s -S -I \""TESTS_SRC_DIR"/data\" -o %s %s",
|
|
options, output_filename, eo_filename) > PATH_MAX)
|
|
{
|
|
printf("eolian gen command too long for buffer\n");
|
|
abort();
|
|
}
|
|
return system(command);
|
|
}
|
|
|
|
EFL_START_TEST(eolian_dev_impl_code)
|
|
{
|
|
char output_filepath[PATH_MAX + 128] = "";
|
|
snprintf(output_filepath, PATH_MAX, "%s/eolian_object_impl",
|
|
eina_environment_tmp_get());
|
|
_remove_ref(output_filepath, "c");
|
|
fail_if(0 != _eolian_gen_execute(TESTS_SRC_DIR"/data/object_impl.eo", "-gi", output_filepath));
|
|
fail_if(!_files_compare(TESTS_SRC_DIR"/data/object_impl_ref.c", output_filepath, "c"));
|
|
/* Check that nothing is added */
|
|
fail_if(0 != _eolian_gen_execute(TESTS_SRC_DIR"/data/object_impl.eo", "-gi", output_filepath));
|
|
fail_if(!_files_compare(TESTS_SRC_DIR"/data/object_impl_ref.c", output_filepath, "c"));
|
|
fail_if(0 != _eolian_gen_execute(TESTS_SRC_DIR"/data/object_impl_add.eo", "-gi", output_filepath));
|
|
fail_if(!_files_compare(TESTS_SRC_DIR"/data/object_impl_add_ref.c", output_filepath, "c"));
|
|
}
|
|
EFL_END_TEST
|
|
|
|
EFL_START_TEST(eolian_types_generation)
|
|
{
|
|
char output_filepath[PATH_MAX + 128] = "";
|
|
snprintf(output_filepath, PATH_MAX, "%s/eolian_typedef",
|
|
eina_environment_tmp_get());
|
|
_remove_ref(output_filepath, "eo.h");
|
|
_remove_ref(output_filepath, "eo.stub.h");
|
|
fail_if(0 != _eolian_gen_execute(TESTS_SRC_DIR"/data/typedef.eo", "-gh", output_filepath));
|
|
fail_if(!_files_compare(TESTS_SRC_DIR"/data/typedef_ref.h", output_filepath, "eo.h"));
|
|
fail_if(0 != _eolian_gen_execute(TESTS_SRC_DIR"/data/struct.eo", "-gh", output_filepath));
|
|
fail_if(!_files_compare(TESTS_SRC_DIR"/data/struct_ref.h", output_filepath, "eo.h"));
|
|
|
|
fail_if(0 != _eolian_gen_execute(TESTS_SRC_DIR"/data/typedef.eo", "-gs", output_filepath));
|
|
fail_if(!_files_compare(TESTS_SRC_DIR"/data/typedef_ref_stub.h", output_filepath, "eo.stub.h"));
|
|
fail_if(0 != _eolian_gen_execute(TESTS_SRC_DIR"/data/struct.eo", "-gs", output_filepath));
|
|
fail_if(!_files_compare(TESTS_SRC_DIR"/data/struct_ref_stub.h", output_filepath, "eo.stub.h"));
|
|
}
|
|
EFL_END_TEST
|
|
|
|
EFL_START_TEST(eolian_default_values_generation)
|
|
{
|
|
char output_filepath[PATH_MAX + 128] = "";
|
|
snprintf(output_filepath, PATH_MAX, "%s/eolian_class_simple",
|
|
eina_environment_tmp_get());
|
|
_remove_ref(output_filepath, "eo.c");
|
|
fail_if(0 != _eolian_gen_execute(TESTS_SRC_DIR"/data/class_simple.eo", "-gc", output_filepath));
|
|
fail_if(!_files_compare(TESTS_SRC_DIR"/data/class_simple_ref.c", output_filepath, "eo.c"));
|
|
fail_if(!_files_compare(TESTS_SRC_DIR"/data/class_simple_ref.legacy.c", output_filepath, "eo.legacy.c"));
|
|
}
|
|
EFL_END_TEST
|
|
|
|
EFL_START_TEST(eolian_override_generation)
|
|
{
|
|
char output_filepath[PATH_MAX + 128] = "";
|
|
snprintf(output_filepath, PATH_MAX, "%s/eolian_override",
|
|
eina_environment_tmp_get());
|
|
_remove_ref(output_filepath, "eo.c");
|
|
fail_if(0 != _eolian_gen_execute(TESTS_SRC_DIR"/data/override.eo", "-gc", output_filepath));
|
|
fail_if(!_files_compare(TESTS_SRC_DIR"/data/override_ref.c", output_filepath, "eo.c"));
|
|
}
|
|
EFL_END_TEST
|
|
|
|
EFL_START_TEST(eolian_functions_descriptions)
|
|
{
|
|
char output_filepath[PATH_MAX + 128] = "";
|
|
snprintf(output_filepath, PATH_MAX, "%s/eolian_class_simple",
|
|
eina_environment_tmp_get());
|
|
_remove_ref(output_filepath, "eo.h");
|
|
fail_if(0 != _eolian_gen_execute(TESTS_SRC_DIR"/data/class_simple.eo", "-gh", output_filepath));
|
|
fail_if(!_files_compare(TESTS_SRC_DIR"/data/class_simple_ref_eo.h", output_filepath, "eo.h"));
|
|
_remove_ref(output_filepath, "eo.legacy.h");
|
|
fail_if(0 != _eolian_gen_execute(TESTS_SRC_DIR"/data/class_simple.eo", "-gl", output_filepath));
|
|
fail_if(!_files_compare(TESTS_SRC_DIR"/data/class_simple_ref_legacy.h", output_filepath, "eo.legacy.h"));
|
|
}
|
|
EFL_END_TEST
|
|
|
|
EFL_START_TEST(eolian_import)
|
|
{
|
|
char output_filepath[PATH_MAX + 128] = "";
|
|
snprintf(output_filepath, PATH_MAX, "%s/eolian_import_types",
|
|
eina_environment_tmp_get());
|
|
_remove_ref(output_filepath, "eot.h");
|
|
fail_if(0 != _eolian_gen_execute(TESTS_SRC_DIR"/data/import_types.eot", "-gh", output_filepath));
|
|
fail_if(!_files_compare(TESTS_SRC_DIR"/data/import_types_ref.h", output_filepath, "eot.h"));
|
|
}
|
|
EFL_END_TEST
|
|
|
|
EFL_START_TEST(eolian_docs)
|
|
{
|
|
char output_filepath[PATH_MAX + 128] = "";
|
|
snprintf(output_filepath, PATH_MAX, "%s/eolian_docs",
|
|
eina_environment_tmp_get());
|
|
_remove_ref(output_filepath, "eo.h");
|
|
fail_if(0 != _eolian_gen_execute(TESTS_SRC_DIR"/data/docs.eo", "-gh", output_filepath));
|
|
fail_if(!_files_compare(TESTS_SRC_DIR"/data/docs_ref.h", output_filepath, "eo.h"));
|
|
_remove_ref(output_filepath, "eo.legacy.h");
|
|
fail_if(0 != _eolian_gen_execute(TESTS_SRC_DIR"/data/docs.eo", "-gl", output_filepath));
|
|
fail_if(!_files_compare(TESTS_SRC_DIR"/data/docs_ref_legacy.h", output_filepath, "eo.legacy.h"));
|
|
}
|
|
EFL_END_TEST
|
|
|
|
EFL_START_TEST(eolian_function_pointers)
|
|
{
|
|
|
|
// .eot
|
|
char output_filepath[PATH_MAX + 128] = "";
|
|
snprintf(output_filepath, PATH_MAX, "%s/eolian_function_pointers",
|
|
eina_environment_tmp_get());
|
|
_remove_ref(output_filepath, "eot.h");
|
|
fail_if(0 != _eolian_gen_execute(TESTS_SRC_DIR"/data/function_types.eot", "-gh", output_filepath));
|
|
fail_if(!_files_compare(TESTS_SRC_DIR"/data/function_types_ref.h", output_filepath, "eot.h"));
|
|
|
|
// .eo.h
|
|
_remove_ref(output_filepath, "eo.h");
|
|
fail_if(0 != _eolian_gen_execute(TESTS_SRC_DIR"/data/function_as_argument.eo", "-gh", output_filepath));
|
|
fail_if(!_files_compare(TESTS_SRC_DIR"/data/function_as_argument_ref.h", output_filepath, "eo.h"));
|
|
|
|
// .eo.c
|
|
_remove_ref(output_filepath, "eo.c");
|
|
fail_if(0 != _eolian_gen_execute(TESTS_SRC_DIR"/data/function_as_argument.eo", "-gc", output_filepath));
|
|
fail_if(!_files_compare(TESTS_SRC_DIR"/data/function_as_argument_ref.c", output_filepath, "eo.c"));
|
|
|
|
// .eo.imp.c
|
|
_remove_ref(output_filepath, "c");
|
|
fail_if(0 != _eolian_gen_execute(TESTS_SRC_DIR"/data/function_as_argument.eo", "-gi", output_filepath));
|
|
fail_if(!_files_compare(TESTS_SRC_DIR"/data/function_as_argument_impl_ref.c", output_filepath, "c"));
|
|
/* Check that nothing is added */
|
|
fail_if(0 != _eolian_gen_execute(TESTS_SRC_DIR"/data/function_as_argument.eo", "-gi", output_filepath));
|
|
fail_if(!_files_compare(TESTS_SRC_DIR"/data/function_as_argument_impl_ref.c", output_filepath, "c"));
|
|
}
|
|
EFL_END_TEST
|
|
|
|
EFL_START_TEST(owning)
|
|
{
|
|
char output_filepath[PATH_MAX + 128] = "";
|
|
snprintf(output_filepath, PATH_MAX, "%s/eolian_owning",
|
|
eina_environment_tmp_get());
|
|
_remove_ref(output_filepath, "eo.c");
|
|
fail_if(0 != _eolian_gen_execute(TESTS_SRC_DIR"/data/owning.eo", "-gc", output_filepath));
|
|
fail_if(!_files_compare(TESTS_SRC_DIR"/data/owning.eo.c", output_filepath, "eo.c"));
|
|
|
|
}
|
|
EFL_END_TEST
|
|
|
|
void eolian_generation_test(TCase *tc)
|
|
{
|
|
tcase_add_test(tc, eolian_types_generation);
|
|
tcase_add_test(tc, eolian_default_values_generation);
|
|
tcase_add_test(tc, eolian_override_generation);
|
|
tcase_add_test(tc, eolian_dev_impl_code);
|
|
tcase_add_test(tc, eolian_functions_descriptions);
|
|
tcase_add_test(tc, eolian_import);
|
|
tcase_add_test(tc, eolian_docs);
|
|
tcase_add_test(tc, eolian_function_pointers);
|
|
tcase_add_test(tc, owning);
|
|
}
|