forked from enlightenment/efl
Eolian: infras for tests + first test
This commit is contained in:
parent
81fbd0e262
commit
d95a114db7
|
@ -55,3 +55,31 @@ am__v_RAGEL_0 = @echo " RAGEL " $@;
|
||||||
|
|
||||||
lib/eolian/eo_lexer.c: lib/eolian/eo_lexer.rl
|
lib/eolian/eo_lexer.c: lib/eolian/eo_lexer.rl
|
||||||
endif
|
endif
|
||||||
|
|
||||||
|
### Unit tests
|
||||||
|
|
||||||
|
if EFL_ENABLE_TESTS
|
||||||
|
check_PROGRAMS += \
|
||||||
|
tests/eolian/eolian_suite
|
||||||
|
|
||||||
|
tests_eolian_eolian_suite_SOURCES = \
|
||||||
|
tests/eolian/eolian_suite.c \
|
||||||
|
tests/eolian/eolian_suite.h
|
||||||
|
|
||||||
|
tests_eolian_eolian_suite_CPPFLAGS = -I$(top_builddir)/src/lib/efl \
|
||||||
|
-DTESTS_BUILD_DIR=\"$(top_builddir)/src/tests/eolian\" \
|
||||||
|
-DPACKAGE_DATA_DIR=\"$(top_srcdir)/src/tests/eolian\" \
|
||||||
|
@CHECK_CFLAGS@ \
|
||||||
|
@EOLIAN_CFLAGS@
|
||||||
|
TESTS += tests/eolian/eolian_suite
|
||||||
|
|
||||||
|
tests_eolian_eolian_suite_LDADD = @CHECK_LIBS@ @USE_EOLIAN_LIBS@
|
||||||
|
tests_eolian_eolian_suite_DEPENDENCIES = @USE_EOLIAN_INTERNAL_LIBS@
|
||||||
|
|
||||||
|
eoliandatafilesdir = $(datadir)/eolian/data
|
||||||
|
eoliandatafiles_DATA = tests/eolian/data/class_simple.eo
|
||||||
|
|
||||||
|
endif
|
||||||
|
|
||||||
|
EXTRA_DIST += \
|
||||||
|
tests/eolian/data/class_simple.eo
|
||||||
|
|
|
@ -0,0 +1,31 @@
|
||||||
|
class Simple {
|
||||||
|
/*@ Class Desc Simple */
|
||||||
|
legacy_prefix: evas_object_simple;
|
||||||
|
eo_prefix: evas_obj_simple;
|
||||||
|
data: Evas_Simple_Data;
|
||||||
|
properties {
|
||||||
|
a {
|
||||||
|
set {
|
||||||
|
/*@
|
||||||
|
comment a::set */
|
||||||
|
return Eina_Bool (EINA_TRUE);
|
||||||
|
}
|
||||||
|
get {
|
||||||
|
}
|
||||||
|
values {
|
||||||
|
int value; /*@ Value description */
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
methods {
|
||||||
|
foo {
|
||||||
|
/*@ comment foo */
|
||||||
|
params {
|
||||||
|
@in int a; /*@ a */
|
||||||
|
@inout char *b;
|
||||||
|
@out double c;
|
||||||
|
}
|
||||||
|
return char *(NULL);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
};
|
|
@ -0,0 +1,206 @@
|
||||||
|
#ifdef HAVE_CONFIG_H
|
||||||
|
# include <config.h>
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#include <stdlib.h>
|
||||||
|
#include <stdio.h>
|
||||||
|
|
||||||
|
#include "Eolian.h"
|
||||||
|
#include "eolian_suite.h"
|
||||||
|
|
||||||
|
typedef struct _Eolian_Test_Case Eolian_Test_Case;
|
||||||
|
|
||||||
|
struct _Eolian_Test_Case
|
||||||
|
{
|
||||||
|
const char *test_case;
|
||||||
|
void (*build)(TCase *tc);
|
||||||
|
};
|
||||||
|
|
||||||
|
START_TEST(eolian_simple_parsing)
|
||||||
|
{
|
||||||
|
Eolian_Function fid = NULL;
|
||||||
|
const char *string = NULL, *ptype = NULL, *pname = NULL;
|
||||||
|
Eolian_Parameter_Dir dir = EOLIAN_IN_PARAM;
|
||||||
|
const char *class_name = "Simple";
|
||||||
|
const Eina_List *list = NULL;
|
||||||
|
Eolian_Function_Parameter param = NULL;
|
||||||
|
|
||||||
|
eolian_init();
|
||||||
|
/* Parsing */
|
||||||
|
fail_if(!eolian_eo_file_parse(PACKAGE_DATA_DIR"/data/class_simple.eo"));
|
||||||
|
fail_if(strcmp(eolian_class_find_by_file(PACKAGE_DATA_DIR"/data/class_simple.eo"), class_name));
|
||||||
|
|
||||||
|
/* Class */
|
||||||
|
fail_if(!eolian_class_exists(class_name));
|
||||||
|
fail_if(eolian_class_type_get(class_name) != EOLIAN_CLASS_REGULAR);
|
||||||
|
string = eolian_class_description_get(class_name);
|
||||||
|
fail_if(!string);
|
||||||
|
fail_if(strcmp(string, "Class Desc Simple"));
|
||||||
|
fail_if(eolian_class_inherits_list_get(class_name) != NULL);
|
||||||
|
fail_if(strcmp(eolian_class_legacy_prefix_get(class_name), "evas_object_simple"));
|
||||||
|
fail_if(strcmp(eolian_class_eo_prefix_get(class_name), "evas_obj_simple"));
|
||||||
|
fail_if(strcmp(eolian_class_data_type_get(class_name), "Evas_Simple_Data"));
|
||||||
|
|
||||||
|
/* Property */
|
||||||
|
fail_if(!(fid = eolian_class_function_find_by_name(class_name, "a", EOLIAN_PROPERTY)));
|
||||||
|
fail_if(strcmp(eolian_function_name_get(fid), "a"));
|
||||||
|
string = eolian_function_description_get(fid, EOLIAN_COMMENT_SET);
|
||||||
|
fail_if(!string);
|
||||||
|
fail_if(strcmp(string, "comment a::set"));
|
||||||
|
string = eolian_function_description_get(fid, EOLIAN_COMMENT_GET);
|
||||||
|
fail_if(string);
|
||||||
|
/* Function return */
|
||||||
|
string = eolian_function_return_type_get(fid, EOLIAN_PROP_SET);
|
||||||
|
fail_if(!string);
|
||||||
|
fail_if(strcmp(string, "Eina_Bool"));
|
||||||
|
string = eolian_function_return_dflt_value_get(fid, EOLIAN_PROP_SET);
|
||||||
|
fail_if(!string);
|
||||||
|
fail_if(strcmp(string, "EINA_TRUE"));
|
||||||
|
string = eolian_function_return_type_get(fid, EOLIAN_PROP_GET);
|
||||||
|
fail_if(string);
|
||||||
|
|
||||||
|
/* Function parameters */
|
||||||
|
fail_if(eolian_property_keys_list_get(fid) != NULL);
|
||||||
|
fail_if(!(list = eolian_property_values_list_get(fid)));
|
||||||
|
fail_if(eina_list_count(list) != 1);
|
||||||
|
fail_if(!(param = eina_list_data_get(list)));
|
||||||
|
eolian_parameter_information_get(param, NULL, &ptype, &pname, &string);
|
||||||
|
fail_if(strcmp(ptype, "int"));
|
||||||
|
fail_if(strcmp(pname, "value"));
|
||||||
|
fail_if(strcmp(string, "Value description"));
|
||||||
|
|
||||||
|
/* Method */
|
||||||
|
fail_if(!(fid = eolian_class_function_find_by_name(class_name, "foo", EOLIAN_METHOD)));
|
||||||
|
string = eolian_function_description_get(fid, EOLIAN_COMMENT);
|
||||||
|
fail_if(!string);
|
||||||
|
fail_if(strcmp(string, "comment foo"));
|
||||||
|
/* Function return */
|
||||||
|
string = eolian_function_return_type_get(fid, EOLIAN_METHOD);
|
||||||
|
fail_if(!string);
|
||||||
|
fail_if(strcmp(string, "char *"));
|
||||||
|
string = eolian_function_return_dflt_value_get(fid, EOLIAN_METHOD);
|
||||||
|
fail_if(!string);
|
||||||
|
fail_if(strcmp(string, "NULL"));
|
||||||
|
|
||||||
|
/* Function parameters */
|
||||||
|
fail_if(!(list = eolian_parameters_list_get(fid)));
|
||||||
|
fail_if(eina_list_count(list) != 3);
|
||||||
|
fail_if(!(param = eina_list_nth(list, 0)));
|
||||||
|
eolian_parameter_information_get(param, &dir, &ptype, &pname, &string);
|
||||||
|
fail_if(dir != EOLIAN_IN_PARAM);
|
||||||
|
fail_if(strcmp(ptype, "int"));
|
||||||
|
fail_if(strcmp(pname, "a"));
|
||||||
|
fail_if(!string || strcmp(string, "a"));
|
||||||
|
fail_if(!(param = eina_list_nth(list, 1)));
|
||||||
|
eolian_parameter_information_get(param, &dir, &ptype, &pname, &string);
|
||||||
|
fail_if(dir != EOLIAN_INOUT_PARAM);
|
||||||
|
fail_if(strcmp(ptype, "char *"));
|
||||||
|
fail_if(strcmp(pname, "b"));
|
||||||
|
fail_if(string);
|
||||||
|
fail_if(!(param = eina_list_nth(list, 2)));
|
||||||
|
eolian_parameter_information_get(param, &dir, &ptype, &pname, &string);
|
||||||
|
fail_if(dir != EOLIAN_OUT_PARAM);
|
||||||
|
fail_if(strcmp(ptype, "double"));
|
||||||
|
fail_if(strcmp(pname, "c"));
|
||||||
|
fail_if(string);
|
||||||
|
|
||||||
|
eolian_shutdown();
|
||||||
|
}
|
||||||
|
END_TEST
|
||||||
|
|
||||||
|
static void eolian_parsing_test(TCase *tc)
|
||||||
|
{
|
||||||
|
tcase_add_test(tc, eolian_simple_parsing);
|
||||||
|
}
|
||||||
|
|
||||||
|
static const Eolian_Test_Case etc[] = {
|
||||||
|
{ "Eolian Parsing", eolian_parsing_test},
|
||||||
|
{ NULL, NULL }
|
||||||
|
};
|
||||||
|
|
||||||
|
static void
|
||||||
|
_list_tests(void)
|
||||||
|
{
|
||||||
|
const Eolian_Test_Case *itr;
|
||||||
|
|
||||||
|
itr = etc;
|
||||||
|
fputs("Available Test Cases:\n", stderr);
|
||||||
|
for (; itr->test_case; itr++)
|
||||||
|
fprintf(stderr, "\t%s\n", itr->test_case);
|
||||||
|
}
|
||||||
|
|
||||||
|
static Eina_Bool
|
||||||
|
_use_test(int argc, const char **argv, const char *test_case)
|
||||||
|
{
|
||||||
|
if (argc < 1)
|
||||||
|
return 1;
|
||||||
|
|
||||||
|
for (; argc > 0; argc--, argv++)
|
||||||
|
if (strcmp(test_case, *argv) == 0)
|
||||||
|
return 1;
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
static Suite *
|
||||||
|
eolian_suite_build(int argc, const char **argv)
|
||||||
|
{
|
||||||
|
TCase *tc;
|
||||||
|
Suite *s;
|
||||||
|
int i;
|
||||||
|
|
||||||
|
s = suite_create("Eolian");
|
||||||
|
|
||||||
|
for (i = 0; etc[i].test_case; ++i)
|
||||||
|
{
|
||||||
|
if (!_use_test(argc, argv, etc[i].test_case)) continue;
|
||||||
|
tc = tcase_create(etc[i].test_case);
|
||||||
|
|
||||||
|
etc[i].build(tc);
|
||||||
|
|
||||||
|
suite_add_tcase(s, tc);
|
||||||
|
tcase_set_timeout(tc, 0);
|
||||||
|
}
|
||||||
|
|
||||||
|
return s;
|
||||||
|
}
|
||||||
|
|
||||||
|
int
|
||||||
|
main(int argc, char **argv)
|
||||||
|
{
|
||||||
|
Suite *s;
|
||||||
|
SRunner *sr;
|
||||||
|
int i, failed_count;
|
||||||
|
eolian_init();
|
||||||
|
setenv("CK_FORK", "no", 0);
|
||||||
|
|
||||||
|
for (i = 1; i < argc; i++)
|
||||||
|
if ((strcmp(argv[i], "-h") == 0) ||
|
||||||
|
(strcmp(argv[i], "--help") == 0))
|
||||||
|
{
|
||||||
|
fprintf(stderr, "Usage:\n\t%s [test_case1 .. [test_caseN]]\n",
|
||||||
|
argv[0]);
|
||||||
|
_list_tests();
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
else if ((strcmp(argv[i], "-l") == 0) ||
|
||||||
|
(strcmp(argv[i], "--list") == 0))
|
||||||
|
{
|
||||||
|
_list_tests();
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
putenv("EFL_RUN_IN_TREE=1");
|
||||||
|
|
||||||
|
s = eolian_suite_build(argc - 1, (const char **)argv + 1);
|
||||||
|
sr = srunner_create(s);
|
||||||
|
|
||||||
|
srunner_set_xml(sr, TESTS_BUILD_DIR "/check-results.xml");
|
||||||
|
|
||||||
|
srunner_run_all(sr, CK_ENV);
|
||||||
|
failed_count = srunner_ntests_failed(sr);
|
||||||
|
srunner_free(sr);
|
||||||
|
|
||||||
|
eolian_shutdown();
|
||||||
|
|
||||||
|
return (failed_count == 0) ? 0 : 255;
|
||||||
|
}
|
|
@ -0,0 +1,10 @@
|
||||||
|
#ifndef _EOLIAN_SUITE_H
|
||||||
|
#define _EOLIAN_SUITE_H
|
||||||
|
|
||||||
|
#include <check.h>
|
||||||
|
|
||||||
|
void eolian_test_init(TCase *tc);
|
||||||
|
void eolian_test_general(TCase *tc);
|
||||||
|
|
||||||
|
#endif /* _EOLIAN_SUITE_H */
|
||||||
|
|
Loading…
Reference in New Issue