From: fennecdjay Date: Fri, 15 Feb 2019 14:27:25 +0000 (+0100) Subject: :art: Update tests X-Git-Tag: nightly~2761^2~43 X-Git-Url: http://10.11.0.4:5575/?a=commitdiff_plain;h=4e36de75711ed9928de646aec042dae7065fe6c9;p=gwion.git :art: Update tests --- diff --git a/examples/array_lit.gw b/examples/array_lit.gw index accae62d..3db22c1a 100644 --- a/examples/array_lit.gw +++ b/examples/array_lit.gw @@ -12,7 +12,7 @@ Object t[2][12][3][4][5]; int k[1][1]; -<<>>; +<<>>; [ 1.0, 2, 3, 4, 5 ]; [ #(0.0, 0.0) ]; diff --git a/help/lcov.sh b/help/lcov.sh index b0f18137..539768c1 100644 --- a/help/lcov.sh +++ b/help/lcov.sh @@ -4,17 +4,6 @@ OUTFILE=lcov/lcov.info [ -d lcov ] || mkdir lcov -#[ -z "$TRAVIS_BUILD_DIR" ] || { -# BASE_DIR=$PWD -# cd tests/test_plugin || return -# for file in *.c -# do -# sed 's/\.c//' <<< "$file" -# test_test_plugin "$(sed 's/\.c//' <<< "$file")" -# done -# cd "$BASE_DIR" || return -#} - lcov --no-external --capture --directory src --output-file "$OUTFILE" [ -z "$TRAVIS_BUILD_DIR" ] || { diff --git a/tests/sh/plugin.sh b/tests/sh/plugin.sh index 41b54c47..bd14c626 100644 --- a/tests/sh/plugin.sh +++ b/tests/sh/plugin.sh @@ -30,7 +30,7 @@ rm "empty.so" BASE_DIR="$PWD" -cd tests/test_plugins || exit +cd tests/import || exit for test_file in *.c do test_plugin "${test_file:0:-2}" done diff --git a/tests/test_plugins/Makefile b/tests/test_plugins/Makefile deleted file mode 100644 index 6a5949fb..00000000 --- a/tests/test_plugins/Makefile +++ /dev/null @@ -1,36 +0,0 @@ -INC = -I../../include -I../../util/include -I../../ast/include -CC ?= gcc - -SRC = ${NAME}.c -OBJ = $(SRC:.c=.o) -CFLAGS = $(../../gwion -C 2>&1 | grep CFLAGS) ${INC} -LDFLAGS = $(../../gwion -C 2>&1 | grep LDFLAGS) - -# os specific -ifeq ($(shell uname), Linux) -LDFLAGS += -shared -else -LDFLAGS += -bundle -undefined dynamic_lookup -endif - -all: ${NAME}.so - - -${NAME}.so: ${OBJ} -ifeq (${USE_LD}, 1) - ${LD} $^ -o ${NAME}.so ${LDFLAGS} -else - ${CC} $^ -o ${NAME}.so ${LDFLAGS} -endif - -clean: - rm -f ${OBJ} ${NAME}.so - -.c.o: - ${CC} -fPIC ${CFLAGS} -c $< -o $(<:.c=.o) -g - -install: ${NAME}.so - install ${NAME}.so ${GWION_ADD_DIR} - -uninstall: - rm ${GWION_ADD_DIR}/${NAME}.so diff --git a/tests/test_plugins/array.c b/tests/test_plugins/array.c deleted file mode 100644 index a256dda6..00000000 --- a/tests/test_plugins/array.c +++ /dev/null @@ -1,25 +0,0 @@ -#include "gwion_util.h" -#include "gwion_ast.h" -#include "oo.h" -#include "vm.h" -#include "env.h" -#include "type.h" -#include "object.h" -#include "instr.h" -#include "import.h" - -MFUN(test_mfun){} - -GWION_IMPORT(array_test) { - Type t_invalid_var_name; - CHECK_BB((t_invalid_var_name = gwi_mk_type(gwi, "invalid_var_name", SZ_INT, t_object))) - CHECK_BB(gwi_class_ini(gwi, t_invalid_var_name, NULL, NULL)) - CHECK_BB(gwi_item_ini(gwi,"int[]", "int_array")) - CHECK_BB(gwi_item_end(gwi, 0, NULL)) // import array var - CHECK_BB(gwi_func_ini(gwi, "float[][]", "f", test_mfun)) - CHECK_BB(gwi_func_end(gwi, 0)) - CHECK_BB(gwi_func_ini(gwi, "float[][]", "g", test_mfun)) - CHECK_BB(gwi_func_end(gwi, 0)) - CHECK_BB(gwi_class_end(gwi)) - return GW_OK; -} diff --git a/tests/test_plugins/begin_class.c b/tests/test_plugins/begin_class.c deleted file mode 100644 index e521b2ce..00000000 --- a/tests/test_plugins/begin_class.c +++ /dev/null @@ -1,18 +0,0 @@ -#include "gwion_util.h" -#include "gwion_ast.h" -#include "oo.h" -#include "vm.h" -#include "env.h" -#include "type.h" -#include "object.h" -#include "instr.h" -#include "import.h" - -MFUN(test_mfun){} -GWION_IMPORT(begin_class) { - Type t_invalid_var_name; - CHECK_OB((t_invalid_var_name = gwi_mk_type(gwi, "invalid_var_name", SZ_INT, t_object))) - CHECK_BB(gwi_class_ini(gwi, t_invalid_var_name, NULL, NULL)) - CHECK_BB(gwi_class_ini(gwi, t_invalid_var_name, NULL, NULL)) - return GW_OK; -} diff --git a/tests/test_plugins/callback.c b/tests/test_plugins/callback.c deleted file mode 100644 index aeeb0759..00000000 --- a/tests/test_plugins/callback.c +++ /dev/null @@ -1,74 +0,0 @@ -#include "gwion_util.h" -#include "gwion_ast.h" -#include "oo.h" -#include "vm.h" -#include "env.h" -#include "type.h" -#include "instr.h" -#include "object.h" -#include "instr.h" -#include "import.h" -#include "func.h" - -struct ret_info { - Instr instr; - m_uint offset; - m_uint size; -}; - -static INSTR(my_ret) { GWDEBUG_EXE - struct ret_info* info = (struct ret_info*)instr->m_val; - POP_MEM(shred, info->offset); - vector_set(shred->code->instr, shred->pc, (vtype)info->instr); - shred->code = *(VM_Code*)instr->ptr; - POP_REG(shred, info->size) - if(shred->mem == shred->_reg + SIZEOF_REG) - POP_REG(shred, SZ_INT) - POP_REG(shred, shred->code->stack_depth); - shred->pc = instr->m_val2; - free(info); - *(m_int*)shred->reg = 2; - PUSH_REG(shred, SZ_INT); -} - -static SFUN(cb_func) { - m_uint i; - Func f = *(Func*)MEM(0); - if(!f){ - Except(shred, "NullCallbackException"); - } - m_uint offset = shred->mem - (shred->_reg + SIZEOF_REG); - PUSH_MEM(shred, offset); - Instr instr = mp_alloc(Instr); - struct ret_info* info = (struct ret_info*)xmalloc(sizeof(struct ret_info)); - info->offset = offset; - info->size = f->def->ret_type->size; - instr->execute = my_ret; - *(VM_Code*)instr->ptr = shred->code; - instr->m_val = (m_uint)info; - instr->m_val2 = shred->pc; - for(i = 0; i < vector_size(f->code->instr); i++) { - Instr in = (Instr)vector_at(f->code->instr, i); - if(in->execute == FuncReturn || - in->execute == my_ret) { - info->instr = in; - vector_set(f->code->instr, i, (vtype)instr); - } - } - *(m_int*)RETURN = 1; - shred->pc = 0; - shred->code = f->code; -} - -GWION_IMPORT(callback) { - CHECK_BB(gwi_fptr_ini(gwi, "Vec4", "PtrType")) - CHECK_BB(gwi_fptr_end(gwi, 0)) - - const Type t_callback = gwi_mk_type(gwi, "Callback", SZ_INT, t_object); - CHECK_BB(gwi_class_ini(gwi, t_callback, NULL, NULL)) - CHECK_BB(gwi_func_ini(gwi, "int", "callback", cb_func)) - CHECK_BB(gwi_func_arg(gwi, "PtrType", "func")) - CHECK_BB(gwi_func_end(gwi, ae_flag_static)) - CHECK_BB(gwi_class_end(gwi)) - return GW_OK; -} diff --git a/tests/test_plugins/callback.gwold b/tests/test_plugins/callback.gwold deleted file mode 100644 index d1397606..00000000 --- a/tests/test_plugins/callback.gwold +++ /dev/null @@ -1,16 +0,0 @@ -int i; -int j; -int K; -fun Vec4 test() { <<<"test">>>; } -fun void test2(PtrType t) { Callback.callback(t); } - -test @=> PtrType t; -<<>>; -<<>>; -<<>>; -Callback.callback(t); -test2(t); -test2(t); -spork ~test2(t); -spork ~Callback.callback(t); -me.yield(); diff --git a/tests/test_plugins/callback2.gw b/tests/test_plugins/callback2.gw deleted file mode 100644 index c9f0668d..00000000 --- a/tests/test_plugins/callback2.gw +++ /dev/null @@ -1,15 +0,0 @@ -fun Vec4 test(int i) { <<<"test with arg ", i>>>; } - -//typedef Vec4 PT(); -//test @=> -PtrTypeI p; -test @=> p; -//test @=> PT ti; -<<>>; -//<<>>; -<<

>>; -//ti(); -<<<"test">>>; -p(2); -<<<"end">>>; -Callback.callback(p, 6); diff --git a/tests/test_plugins/class_template.c b/tests/test_plugins/class_template.c deleted file mode 100644 index 0a6a26de..00000000 --- a/tests/test_plugins/class_template.c +++ /dev/null @@ -1,47 +0,0 @@ -#include "gwion_util.h" -#include "gwion_ast.h" -#include "oo.h" -#include "vm.h" -#include "env.h" -#include "type.h" -#include "object.h" -#include "instr.h" -#include "import.h" - -static m_int o_map_key; -static m_int o_map_value; -#define MAP_KEY(a) *((M_Object*)(a->data + o_map_key)) -#define MAP_VAL(a) *((M_Object*)(a->data + o_map_value)) -static CTOR(class_template_ctor) { - /*char* name = strdup(o->type_ref->name);*/ - /*char* tmp = strsep(&name, "@");*/ - /*char* name1 = strsep(&name, "@");*/ -/*Type t1 = nspc_lookup_type1(o->type_ref->info->parent, insert_symbol(name1));*/ - /*Type t2 = nspc_lookup_type0(shred->vm->emit->env->curr, insert_symbol(name));*/ -/*free(tmp);*/ -/**(M_Object*)(o->data) = new_array(t1->size, 0, t1->array_depth);*/ - /**(M_Object*)(o->data + SZ_INT) = new_array(t2->size, 0, t2->array_depth);*/ -} - -static MFUN(class_template_set) { - -} - -GWION_IMPORT(class_template) { - Type t_class_template; - const m_str list[2] = { "A", "B" }; - gwi_tmpl_ini(gwi, 2, list); - CHECK_OB((t_class_template = gwi_mk_type(gwi, "ClassTemplate", SZ_INT, t_object))) - CHECK_BB(gwi_class_ini(gwi, t_class_template, class_template_ctor, NULL)) - gwi_tmpl_end(gwi); - CHECK_BB(gwi_item_ini(gwi, "A[]", "key")) - CHECK_BB((o_map_key = gwi_item_end(gwi, ae_flag_member | ae_flag_template, NULL))) - CHECK_BB(gwi_item_ini(gwi, "B[]", "value")) - CHECK_BB((o_map_value = gwi_item_end(gwi, ae_flag_member, NULL))) - - - /*gwi_func_ini(gwi, "B", "set", class_template_set);*/ - /*gwi_func_end(gwi, ae_flag_member);*/ - CHECK_BB(gwi_class_end(gwi)) - return GW_OK; -} diff --git a/tests/test_plugins/class_template.gw b/tests/test_plugins/class_template.gw deleted file mode 100644 index 245aca58..00000000 --- a/tests/test_plugins/class_template.gw +++ /dev/null @@ -1,15 +0,0 @@ -//class child {} -//template<~A, B~> -//class C{ A key; B value; } -//<~int, int~>C c1; -//C c2; -//<<>>; -//<<>>; -//<<>>; - -<~int, int~>ClassTemplate ct; -<<>>; -//ClassTemplate ct2; -//<<>>; -//ClassTemplate ct3; -//<<>>; diff --git a/tests/test_plugins/coverage.c b/tests/test_plugins/coverage.c deleted file mode 100644 index 8c629229..00000000 --- a/tests/test_plugins/coverage.c +++ /dev/null @@ -1,63 +0,0 @@ -#include "gwion_util.h" -#include "gwion_ast.h" -#include "oo.h" -#include "vm.h" -#include "env.h" -#include "type.h" -#include "object.h" -#include "instr.h" -#include "import.h" - -SFUN(coverage_int) { *(m_uint*)RETURN = 0; } -SFUN(coverage_float) { *(m_float*)RETURN = 0; } -SFUN(coverage_complex) { *(m_complex*)RETURN = 0; } -SFUN(coverage_vec3) { m_vec3 v = {0,0,0}; *(m_vec3*)RETURN = v; } -SFUN(coverage_vec4) { m_vec4 v = {0,0,0,0}; *(m_vec4*)RETURN = v; } - -GWION_IMPORT(coverage) { - Type t_coverage; - CHECK_OB((t_coverage = gwi_mk_type(gwi, "Coverage", SZ_INT, t_object))) - CHECK_BB(gwi_class_ini(gwi, t_coverage, NULL, NULL)) - CHECK_BB(gwi_func_ini(gwi, "int", "i", coverage_int)) - CHECK_BB(gwi_func_end(gwi, ae_flag_static)) - CHECK_BB(gwi_func_ini(gwi, "float", "f", coverage_float)) - CHECK_BB(gwi_func_end(gwi, ae_flag_static)) - CHECK_BB(gwi_func_ini(gwi, "complex", "c", coverage_complex)) - CHECK_BB(gwi_func_end(gwi, ae_flag_static)) - CHECK_BB(gwi_func_ini(gwi, "Vec3", "v", coverage_vec3)) - CHECK_BB(gwi_func_end(gwi, ae_flag_static)) - CHECK_BB(gwi_func_ini(gwi, "Vec4", "w", coverage_vec4)) - CHECK_BB(gwi_func_end(gwi, ae_flag_static)) - - m_uint* i = (m_uint*)xmalloc(sizeof(m_uint)); - *i = 5; - CHECK_BB(gwi_item_ini(gwi,"int", "s_i")) - CHECK_BB(gwi_item_end(gwi, ae_flag_static | ae_flag_const, i)) - m_float* f = (m_float*)xmalloc(sizeof(m_float)); - *f = 2.1; - CHECK_BB(gwi_item_ini(gwi,"float", "s_f")) - CHECK_BB(gwi_item_end(gwi, ae_flag_static | ae_flag_const, (void*)f)) - - m_complex* c = (m_complex*)xmalloc(sizeof(m_complex)); - *c = 2.1; - CHECK_BB(gwi_item_ini(gwi,"complex", "s_c")) - CHECK_BB(gwi_item_end(gwi, ae_flag_static | ae_flag_const, (void*)c)) - - m_vec3* v = (m_vec3*)xmalloc(sizeof(m_vec3)); - v->x = 2.1; - v->y = 2.2; - v->z = 2.3; - CHECK_BB(gwi_item_ini(gwi,"Vec3", "s_v")) - CHECK_BB(gwi_item_end(gwi, ae_flag_static | ae_flag_const, (void*)v)) - - m_vec4* w = (m_vec4*)xmalloc(sizeof(m_vec4)); - w->x = 2.1; - w->y = 2.2; - w->z = 2.3; - w->w = 2.4; - CHECK_BB(gwi_item_ini(gwi,"Vec4", "s_w")) - CHECK_BB(gwi_item_end(gwi, ae_flag_static | ae_flag_const, (void*)w)) - - CHECK_BB(gwi_class_end(gwi)) - return GW_OK; -} diff --git a/tests/test_plugins/coverage.gw b/tests/test_plugins/coverage.gw deleted file mode 100644 index d616e424..00000000 --- a/tests/test_plugins/coverage.gw +++ /dev/null @@ -1,20 +0,0 @@ -float f; -Coverage c; -c.s_i; -<<< Coverage.i() >>>; -<<< Coverage.f() >>>; -<<< Coverage.c() >>>; -<<< Coverage.v() >>>; -<<< Coverage.w() >>>; - -<<>>; -<<>>; -<<>>; -<<>>; -<<>>; - -<<< 1 => Coverage.s_i >>>; -<<< 1.2 => Coverage.s_f >>>; -<<< #(1.2, 0.1) => Coverage.s_c >>>; -<<< @(1.2, 0.1, 2.6) => Coverage.s_v >>>; -<<< @(1.2, 0.1, 2.6, 4.6) => Coverage.s_w >>>; diff --git a/tests/test_plugins/end_class.c b/tests/test_plugins/end_class.c deleted file mode 100644 index 8961e034..00000000 --- a/tests/test_plugins/end_class.c +++ /dev/null @@ -1,16 +0,0 @@ -#include "gwion_util.h" -#include "gwion_ast.h" -#include "absyn.h" -#include "oo.h" -#include "vm.h" -#include "env.h" -#include "operator.h" -#include "object.h" -#include "instr.h" -#include "import.h" - -MFUN(test_mfun){} -GWION_IMPORT(end_class) { - CHECK_BB(gwi_class_end(gwi)) - return GW_OK; -} diff --git a/tests/test_plugins/enum.c b/tests/test_plugins/enum.c deleted file mode 100644 index 032d7855..00000000 --- a/tests/test_plugins/enum.c +++ /dev/null @@ -1,69 +0,0 @@ -#include "gwion_util.h" -#include "gwion_ast.h" -#include "oo.h" -#include "vm.h" -#include "env.h" -#include "type.h" -#include "object.h" -#include "instr.h" -#include "import.h" - -GWION_IMPORT(enum_test) { - CHECK_BB(gwi_enum_ini(gwi, NULL)) - CHECK_BB(gwi_enum_add(gwi, "ENUM0", 0)) - CHECK_BB(gwi_enum_add(gwi, "ENUM1", 1)) - CHECK_BB(gwi_enum_add(gwi, "ENUM2", 2)) - CHECK_BB(gwi_enum_add(gwi, "ENUM3", 3)) - CHECK_BB(gwi_enum_add(gwi, "ENUM4", 4)) - CHECK_BB(gwi_enum_add(gwi, "ENUM5", 5)) - CHECK_BB(gwi_enum_add(gwi, "ENUM6", 6)) - CHECK_BB(gwi_enum_add(gwi, "ENUM7", 7)) - CHECK_BB(gwi_enum_add(gwi, "ENUM8", 8)) - CHECK_BB(gwi_enum_add(gwi, "ENUM9", 9)) - CHECK_BB(gwi_enum_end(gwi)) - - CHECK_BB(gwi_enum_ini(gwi, "test")) - CHECK_BB(gwi_enum_add(gwi, "TYPED_ENUM0", 0)) - CHECK_BB(gwi_enum_add(gwi, "TYPED_ENUM1", 1)) - CHECK_BB(gwi_enum_add(gwi, "TYPED_ENUM2", 2)) - CHECK_BB(gwi_enum_add(gwi, "TYPED_ENUM3", 3)) - CHECK_BB(gwi_enum_add(gwi, "TYPED_ENUM4", 4)) - CHECK_BB(gwi_enum_add(gwi, "TYPED_ENUM5", 5)) - CHECK_BB(gwi_enum_add(gwi, "TYPED_ENUM6", 6)) - CHECK_BB(gwi_enum_add(gwi, "TYPED_ENUM7", 7)) - CHECK_BB(gwi_enum_add(gwi, "TYPED_ENUM8", 8)) - CHECK_BB(gwi_enum_add(gwi, "TYPED_ENUM9", 9)) - CHECK_BB(gwi_enum_end(gwi)) - - Type t_enum; - CHECK_OB((t_enum = gwi_mk_type(gwi, "Enum", 0, NULL))) - CHECK_BB(gwi_class_ini(gwi, t_enum, NULL, NULL)) - CHECK_BB(gwi_enum_ini(gwi, 0)) - CHECK_BB(gwi_enum_add(gwi, "ENUM0", 0)) - CHECK_BB(gwi_enum_add(gwi, "ENUM1", 1)) - CHECK_BB(gwi_enum_add(gwi, "ENUM2", 2)) - CHECK_BB(gwi_enum_add(gwi, "ENUM3", 3)) - CHECK_BB(gwi_enum_add(gwi, "ENUM4", 4)) - CHECK_BB(gwi_enum_add(gwi, "ENUM5", 5)) - CHECK_BB(gwi_enum_add(gwi, "ENUM6", 6)) - CHECK_BB(gwi_enum_add(gwi, "ENUM7", 7)) - CHECK_BB(gwi_enum_add(gwi, "ENUM8", 8)) - CHECK_BB(gwi_enum_add(gwi, "ENUM9", 9)) - CHECK_BB(gwi_enum_end(gwi)) - - CHECK_BB(gwi_enum_ini(gwi, "Enumtest")) - CHECK_BB(gwi_enum_add(gwi, "TYPED_ENUM0", 0)) - CHECK_BB(gwi_enum_add(gwi, "TYPED_ENUM1", 1)) - CHECK_BB(gwi_enum_add(gwi, "TYPED_ENUM2", 2)) - CHECK_BB(gwi_enum_add(gwi, "TYPED_ENUM3", 3)) - CHECK_BB(gwi_enum_add(gwi, "TYPED_ENUM4", 4)) - CHECK_BB(gwi_enum_add(gwi, "TYPED_ENUM5", 5)) - CHECK_BB(gwi_enum_add(gwi, "TYPED_ENUM6", 6)) - CHECK_BB(gwi_enum_add(gwi, "TYPED_ENUM7", 7)) - CHECK_BB(gwi_enum_add(gwi, "TYPED_ENUM8", 8)) - CHECK_BB(gwi_enum_add(gwi, "TYPED_ENUM9", 9)) - CHECK_BB(gwi_enum_end(gwi)) - CHECK_BB(gwi_class_end(gwi)) - - return GW_OK; -} diff --git a/tests/test_plugins/enum.gw b/tests/test_plugins/enum.gw deleted file mode 100644 index 85666650..00000000 --- a/tests/test_plugins/enum.gw +++ /dev/null @@ -1,48 +0,0 @@ -// untyped global enum -<<>>; -<<>>; -<<>>; -<<>>; -<<>>; -<<>>; -<<>>; -<<>>; -<<>>; -<<>>; - -// typed global enum -<<>>; -<<>>; -<<>>; -<<>>; -<<>>; -<<>>; -<<>>; -<<>>; -<<>>; -<<>>; - -// in class -// untyped global enum -<<>>; -<<>>; -<<>>; -<<>>; -<<>>; -<<>>; -<<>>; -<<>>; -<<>>; -<<>>; - -// Enum.typed global enum -<<>>; -<<>>; -<<>>; -<<>>; -<<>>; -<<>>; -<<>>; -<<>>; -<<>>; -<<>>; diff --git a/tests/test_plugins/extend_array.c b/tests/test_plugins/extend_array.c deleted file mode 100644 index 6780257b..00000000 --- a/tests/test_plugins/extend_array.c +++ /dev/null @@ -1,23 +0,0 @@ -#include "gwion_util.h" -#include "gwion_ast.h" -#include "oo.h" -#include "vm.h" -#include "env.h" -#include "type.h" -#include "instr.h" -#include "object.h" -#include "import.h" -#include "instr.h" - -GWION_IMPORT(extend_array_test) { - Type t_array_ext; - CHECK_OB((t_array_ext = gwi_mk_type(gwi, "ArrayExt", SZ_INT, NULL))) - CHECK_BB(gwi_class_ini(gwi, t_array_ext, NULL, NULL)) - Type_Decl* td = new_type_decl(new_id_list(insert_symbol("float"), 0), 0); - Exp e = new_exp_prim_int(1, 0); - Array_Sub array = new_array_sub(e); - add_type_decl_array(td, array); - CHECK_BB(gwi_class_ext(gwi, td)) - CHECK_BB(gwi_class_end(gwi)) - return GW_OK; -} diff --git a/tests/test_plugins/extend_array.gw b/tests/test_plugins/extend_array.gw deleted file mode 100644 index a3aa9702..00000000 --- a/tests/test_plugins/extend_array.gw +++ /dev/null @@ -1,3 +0,0 @@ -ArrayExt a; -<<>>; -<<>>; diff --git a/tests/test_plugins/extend_event.c b/tests/test_plugins/extend_event.c deleted file mode 100644 index 92a8e9e6..00000000 --- a/tests/test_plugins/extend_event.c +++ /dev/null @@ -1,22 +0,0 @@ -#include "gwion_util.h" -#include "gwion_ast.h" -#include "oo.h" -#include "vm.h" -#include "env.h" -#include "type.h" -#include "instr.h" -#include "object.h" -#include "instr.h" -#include "import.h" - -static CTOR(ev_ctor) { printf(" %p this to test ctor\n", (void*)o); } - -GWION_IMPORT(extend_event_test) { - Type t_ev ; - CHECK_OB((t_ev = gwi_mk_type(gwi, "Ev", SZ_INT , NULL))) - CHECK_BB(gwi_class_ini(gwi, t_ev, ev_ctor, NULL)) - Type_Decl* td = new_type_decl(new_id_list(insert_symbol("Event"), 0), 0); - CHECK_BB(gwi_class_ext(gwi, td)) - CHECK_BB(gwi_class_end(gwi)) - return GW_OK; -} diff --git a/tests/test_plugins/extend_event.gw b/tests/test_plugins/extend_event.gw deleted file mode 100644 index b4c6647e..00000000 --- a/tests/test_plugins/extend_event.gw +++ /dev/null @@ -1,2 +0,0 @@ -Ev ev; -<<>>; diff --git a/tests/test_plugins/extend_pair.c b/tests/test_plugins/extend_pair.c deleted file mode 100644 index 304a8d32..00000000 --- a/tests/test_plugins/extend_pair.c +++ /dev/null @@ -1,28 +0,0 @@ -#include "gwion_util.h" -#include "gwion_ast.h" -#include "oo.h" -#include "vm.h" -#include "env.h" -#include "type.h" -#include "instr.h" -#include "object.h" -#include "instr.h" -#include "import.h" - -GWION_IMPORT(extend_pair_test) { - m_str types[] = { "A", "B" }; - Type t_pair_ext ; - CHECK_OB((t_pair_ext = gwi_mk_type(gwi, "PairExt", SZ_INT , NULL))) - CHECK_BB(gwi_tmpl_ini(gwi, 2, types)) - CHECK_BB(gwi_class_ini(gwi, t_pair_ext, NULL, NULL)) - CHECK_BB(gwi_tmpl_end(gwi)) - Type_Decl* td = new_type_decl(new_id_list(insert_symbol("Pair"), 0), 0); - Type_Decl* td0 = new_type_decl(new_id_list(insert_symbol("A"), 0), 0); - Type_Decl* td1 = new_type_decl(new_id_list(insert_symbol("B"), 0), 0); - Type_List tl1 = new_type_list(td1, NULL); - Type_List tl0 = new_type_list(td0, tl1); - td->types = tl0; - CHECK_BB(gwi_class_ext(gwi, td)) - CHECK_BB(gwi_class_end(gwi)) - return GW_OK; -} diff --git a/tests/test_plugins/extend_pair.gw b/tests/test_plugins/extend_pair.gw deleted file mode 100644 index f32763dc..00000000 --- a/tests/test_plugins/extend_pair.gw +++ /dev/null @@ -1,4 +0,0 @@ -<~int, int~>PairExt p; -<<

>>; -<<>>; -<<>>; diff --git a/tests/test_plugins/global_func.c b/tests/test_plugins/global_func.c deleted file mode 100644 index 8bfcbc39..00000000 --- a/tests/test_plugins/global_func.c +++ /dev/null @@ -1,22 +0,0 @@ -#include "gwion_util.h" -#include "gwion_ast.h" -#include "oo.h" -#include "vm.h" -#include "env.h" -#include "type.h" -#include "instr.h" -#include "object.h" -#include "import.h" -#include "instr.h" - -SFUN(coverage_int) { - puts("test"); - *(m_int*)RETURN = *(m_int*)MEM(0); -} - -GWION_IMPORT(global_func_test) { - CHECK_BB(gwi_func_ini(gwi, "int", "test", coverage_int)) - CHECK_BB(gwi_func_arg(gwi, "int", "i")) - CHECK_BB(gwi_func_end(gwi, 0)) - return GW_OK; -} diff --git a/tests/test_plugins/global_func.gw b/tests/test_plugins/global_func.gw deleted file mode 100644 index 5b594034..00000000 --- a/tests/test_plugins/global_func.gw +++ /dev/null @@ -1 +0,0 @@ -<<<1 => test>>>; diff --git a/tests/test_plugins/global_var.c b/tests/test_plugins/global_var.c deleted file mode 100644 index 3f46664d..00000000 --- a/tests/test_plugins/global_var.c +++ /dev/null @@ -1,18 +0,0 @@ -#include "gwion_util.h" -#include "gwion_ast.h" -#include "oo.h" -#include "vm.h" -#include "env.h" -#include "type.h" -#include "object.h" -#include "instr.h" -#include "import.h" - - -GWION_IMPORT(global_var_test) { -// ALLOC_PTR(i, m_uint, 1); - M_Object i = new_string(NULL, "test"); - CHECK_BB(gwi_item_ini(gwi,"string", "i")) - CHECK_BB(gwi_item_end(gwi, 0, i)) - return GW_OK; -} diff --git a/tests/test_plugins/global_var.gw b/tests/test_plugins/global_var.gw deleted file mode 100644 index a4041bca..00000000 --- a/tests/test_plugins/global_var.gw +++ /dev/null @@ -1 +0,0 @@ -<<>>; diff --git a/tests/test_plugins/invalid_arg.c b/tests/test_plugins/invalid_arg.c deleted file mode 100644 index b8178300..00000000 --- a/tests/test_plugins/invalid_arg.c +++ /dev/null @@ -1,23 +0,0 @@ -#include "gwion_util.h" -#include "gwion_ast.h" -#include "oo.h" -#include "vm.h" -#include "env.h" -#include "type.h" -#include "object.h" -#include "instr.h" -#include "import.h" - -static MFUN(test_mfun){} -GWION_IMPORT(invalid_arg_test) { - Type t_invalid_var_type ; - CHECK_OB((t_invalid_var_type = gwi_mk_type(gwi, "invalid_var_type", - SZ_INT , NULL))) - CHECK_BB(gwi_class_ini(gwi, t_invalid_var_type, NULL, NULL)) - CHECK_BB(gwi_func_ini(gwi, "int[]", "func", test_mfun)) - CHECK_BB(gwi_func_arg(gwi, ".int", "i")) - CHECK_BB(gwi_func_end(gwi, ae_flag_static)) - - CHECK_BB(gwi_class_end(gwi)) - return GW_OK; -} diff --git a/tests/test_plugins/invalid_array.c b/tests/test_plugins/invalid_array.c deleted file mode 100644 index 34880868..00000000 --- a/tests/test_plugins/invalid_array.c +++ /dev/null @@ -1,37 +0,0 @@ -#include "gwion_util.h" -#include "gwion_ast.h" -#include "oo.h" -#include "vm.h" -#include "env.h" -#include "type.h" -#include "object.h" -#include "instr.h" -#include "import.h" - -static MFUN(test_mfun){} -GWION_IMPORT(inalid_array_test) { - Type t_invalid_var_type; - CHECK_OB((t_invalid_var_type = gwi_mk_type(gwi, "invalid_var_type", - SZ_INT , NULL))) - CHECK_BB(gwi_class_ini(gwi, t_invalid_var_type, NULL, NULL)) - CHECK_BB(gwi_func_ini(gwi, "int[]", "func", test_mfun)) - CHECK_BB(gwi_func_arg(gwi, "int[][]", "i")) - CHECK_BB(gwi_func_arg(gwi, "int", "j[]")) - CHECK_BB(gwi_func_arg(gwi, "int[]", "k[]")) - CHECK_BB(gwi_func_arg(gwi, "int", "l")) - CHECK_BB(gwi_func_end(gwi, ae_flag_static)) - - CHECK_BB(gwi_func_ini(gwi, "int[]", "func", test_mfun)) - CHECK_BB(gwi_func_arg(gwi, "int", "j[][]")) - CHECK_BB(gwi_func_arg(gwi, "int[]", "+k[][][]")) - CHECK_BB(gwi_func_arg(gwi, "int", "l")) - CHECK_BB(gwi_func_end(gwi, ae_flag_static)) - - CHECK_BB(gwi_func_ini(gwi, "int[]", "func", test_mfun)) - CHECK_BB(gwi_func_arg(gwi, "+int", "j[][]")) - CHECK_BB(gwi_func_arg(gwi, "int[]", "+k[][][]")) - CHECK_BB(gwi_func_end(gwi, ae_flag_static)) - - CHECK_BB(gwi_class_end(gwi)) - return GW_OK; -} diff --git a/tests/test_plugins/invalid_func.c b/tests/test_plugins/invalid_func.c deleted file mode 100644 index 0eb8530b..00000000 --- a/tests/test_plugins/invalid_func.c +++ /dev/null @@ -1,22 +0,0 @@ -#include "gwion_util.h" -#include "gwion_ast.h" -#include "oo.h" -#include "vm.h" -#include "env.h" -#include "type.h" -#include "object.h" -#include "instr.h" -#include "import.h" - -static MFUN(test_mfun){} -GWION_IMPORT(invalid_func_test) { - Type t_invalid_var_type ; - CHECK_OB((t_invalid_var_type = gwi_mk_type(gwi, "invalid_var_type", - SZ_INT , NULL))) - CHECK_BB(gwi_class_ini(gwi, t_invalid_var_type, NULL, NULL)) - CHECK_BB(gwi_func_ini(gwi, ".int", "i", test_mfun)) - CHECK_BB(gwi_func_end(gwi, ae_flag_static)) - - CHECK_BB(gwi_class_end(gwi)) - return GW_OK; -} diff --git a/tests/test_plugins/invalid_type1.c b/tests/test_plugins/invalid_type1.c deleted file mode 100644 index 99bed3f1..00000000 --- a/tests/test_plugins/invalid_type1.c +++ /dev/null @@ -1,21 +0,0 @@ -#include "gwion_util.h" -#include "gwion_ast.h" -#include "oo.h" -#include "vm.h" -#include "env.h" -#include "type.h" -#include "object.h" -#include "instr.h" -#include "import.h" - -static MFUN(test_mfun){} -GWION_IMPORT(invalid_type1_test) { - Type t_invalid_var_type; - CHECK_OB((t_invalid_var_type = gwi_mk_type(gwi, "invalid_var_type", - SZ_INT , NULL))) - CHECK_BB(gwi_class_ini(gwi, t_invalid_var_type, NULL, NULL)) - CHECK_BB(gwi_item_ini(gwi,"i|nt", "test")) - CHECK_BB(gwi_item_end(gwi, 0, NULL)) - CHECK_BB(gwi_class_end(gwi)) - return GW_OK; -} diff --git a/tests/test_plugins/invalid_type2.c b/tests/test_plugins/invalid_type2.c deleted file mode 100644 index b2242ecb..00000000 --- a/tests/test_plugins/invalid_type2.c +++ /dev/null @@ -1,21 +0,0 @@ -#include "gwion_util.h" -#include "gwion_ast.h" -#include "oo.h" -#include "vm.h" -#include "env.h" -#include "type.h" -#include "object.h" -#include "instr.h" -#include "import.h" - -static MFUN(test_mfun){} -GWION_IMPORT(invalid_type2_test) { - Type t_invalid_var_type ; - CHECK_OB((t_invalid_var_type = gwi_mk_type(gwi, "invalid_var_type", - SZ_INT , NULL))) - CHECK_BB(gwi_class_ini(gwi, t_invalid_var_type, NULL, NULL)) - CHECK_BB(gwi_item_ini(gwi,".int", "test")) - CHECK_BB(gwi_item_end(gwi, 0, NULL)) - CHECK_BB(gwi_class_end(gwi)) - return GW_OK; -} diff --git a/tests/test_plugins/invalid_type3.c b/tests/test_plugins/invalid_type3.c deleted file mode 100644 index f8e8c9fb..00000000 --- a/tests/test_plugins/invalid_type3.c +++ /dev/null @@ -1,22 +0,0 @@ -#include "gwion_util.h" -#include "gwion_ast.h" -#include "absyn.h" -#include "oo.h" -#include "vm.h" -#include "env.h" -#include "type.h" -#include "object.h" -#include "instr.h" -#include "import.h" - -static MFUN(test_mfun){} -GWION_IMPORT(invalid_type3_test) { - Type t_invalid_var_type ; - CHECK_OB((t_invalid_var_type = gwi_mk_type(gwi, ".invalid_var_type", - SZ_INT , NULL))) - CHECK_BB(gwi_class_ini(gwi, t_invalid_var_type, NULL, NULL)) - CHECK_BB(gwi_item_ini(gwi,".int", "test")) - CHECK_BB(gwi_item_end(gwi, 0, NULL)) - CHECK_BB(gwi_class_end(gwi)) - return GW_OK; -} diff --git a/tests/test_plugins/map2.gw b/tests/test_plugins/map2.gw deleted file mode 100644 index 4834e845..00000000 --- a/tests/test_plugins/map2.gw +++ /dev/null @@ -1,5 +0,0 @@ -<~int, float~>Map pp; -<<>>; -<<>>; -<<>>; -<<>>; diff --git a/tests/test_plugins/no_import.c b/tests/test_plugins/no_import.c deleted file mode 100644 index 9a10bead..00000000 --- a/tests/test_plugins/no_import.c +++ /dev/null @@ -1,12 +0,0 @@ -#include "gwion_util.h" -#include "gwion_ast.h" -#include "oo.h" -#include "vm.h" -#include "env.h" -#include "type.h" -#include "object.h" -#include "instr.h" -#include "import.h" - - -static MFUN(test_mfun){} diff --git a/tests/test_plugins/op_err.c b/tests/test_plugins/op_err.c deleted file mode 100644 index c6b2b987..00000000 --- a/tests/test_plugins/op_err.c +++ /dev/null @@ -1,17 +0,0 @@ -#include "gwion_util.h" -#include "gwion_ast.h" -#include "oo.h" -#include "vm.h" -#include "env.h" -#include "type.h" -#include "object.h" -#include "instr.h" -#include "import.h" - -GWION_IMPORT(op_err_test) { - gwi_oper_ini(gwi, "int", "int", "int"); // ignore the check - gwi_oper_end(gwi, 220, NULL); // ignore the check. - CHECK_BB(gwi_oper_ini(gwi, "int", "int", "int")) - CHECK_BB(gwi_oper_end(gwi, op_chuck, NULL)) - return GW_OK; -} diff --git a/tests/test_plugins/static_string.c b/tests/test_plugins/static_string.c deleted file mode 100644 index 63befdf8..00000000 --- a/tests/test_plugins/static_string.c +++ /dev/null @@ -1,17 +0,0 @@ -#include -#include "gwion_util.h" -#include "gwion_ast.h" -#include "oo.h" -#include "vm.h" -#include "env.h" -#include "type.h" -#include "object.h" -#include "instr.h" -#include "import.h" - -GWION_IMPORT(static_string_test) { - CHECK_BB(gwi_item_ini(gwi, "string", "self")) - M_Object obj = new_string(NULL, "test static string"); - CHECK_BB(gwi_item_end(gwi, ae_flag_global, obj)) - return GW_OK; -} diff --git a/tests/test_plugins/static_string.gw b/tests/test_plugins/static_string.gw deleted file mode 100644 index fadda99b..00000000 --- a/tests/test_plugins/static_string.gw +++ /dev/null @@ -1,2 +0,0 @@ -//<<>>; -<<>>; diff --git a/tests/test_plugins/template_arg.c b/tests/test_plugins/template_arg.c deleted file mode 100644 index e483910f..00000000 --- a/tests/test_plugins/template_arg.c +++ /dev/null @@ -1,22 +0,0 @@ -#include "gwion_util.h" -#include "gwion_ast.h" -#include "oo.h" -#include "vm.h" -#include "env.h" -#include "type.h" -#include "object.h" -#include "instr.h" -#include "import.h" - -static MFUN(template_arg_fun) {} - -GWION_IMPORT(template_arg_test) { - Type t_template_arg; - CHECK_OB((t_template_arg = gwi_mk_type(gwi, "TemplateArg", SZ_INT , NULL))) - CHECK_BB(gwi_class_ini(gwi, t_template_arg, NULL, NULL)) - CHECK_BB(gwi_func_ini(gwi, "int", "set", template_arg_fun)) - CHECK_BB(gwi_func_arg(gwi, "Pair,float>","test")) - CHECK_BB(gwi_func_end(gwi, 0)) - CHECK_BB(gwi_class_end(gwi)) - return GW_OK; -} diff --git a/tests/test_plugins/typedef.c b/tests/test_plugins/typedef.c deleted file mode 100644 index 61f228c4..00000000 --- a/tests/test_plugins/typedef.c +++ /dev/null @@ -1,27 +0,0 @@ -#include "gwion_util.h" -#include "gwion_ast.h" -#include "oo.h" -#include "vm.h" -#include "env.h" -#include "type.h" -#include "object.h" -#include "instr.h" -#include "import.h" - -static MFUN(test_func) { puts("test"); } -GWION_IMPORT(typedef_test) { - Type t_func_typedef; - CHECK_OB((t_func_typedef = gwi_mk_type(gwi, "FuncTypedef", SZ_INT , NULL))) - CHECK_BB(gwi_fptr_ini(gwi, "void", "PtrType")) - CHECK_BB(gwi_fptr_end(gwi, 0)) - - CHECK_BB(gwi_class_ini(gwi, t_func_typedef, NULL, NULL)) - CHECK_BB(gwi_fptr_ini(gwi, "void", "PtrType")) - CHECK_BB(gwi_fptr_end(gwi, ae_flag_static)) - CHECK_BB(gwi_func_ini(gwi, "void", "test_func", test_func)) - CHECK_BB(gwi_func_end(gwi, ae_flag_static)) - CHECK_BB(gwi_item_ini(gwi, "PtrType", "ptr")) - CHECK_BB(gwi_item_end(gwi, ae_flag_static, NULL)) - CHECK_BB(gwi_class_end(gwi)) - return GW_OK; -} diff --git a/tests/test_plugins/typedef.gw b/tests/test_plugins/typedef.gw deleted file mode 100644 index 25282b0d..00000000 --- a/tests/test_plugins/typedef.gw +++ /dev/null @@ -1,13 +0,0 @@ -fun void test(){ <<<"test">>>; } -PtrType ptr; -test(); -test @=> ptr; -ptr(); - - -FuncTypedef.test_func(); -<< FuncTypedef.ptr>>>; - _ptr; -<<>>; -FuncTypedef.ptr(); - diff --git a/tests/test_plugins/union.c b/tests/test_plugins/union.c deleted file mode 100644 index fe78166c..00000000 --- a/tests/test_plugins/union.c +++ /dev/null @@ -1,17 +0,0 @@ -#include "gwion_util.h" -#include "gwion_ast.h" -#include "oo.h" -#include "vm.h" -#include "env.h" -#include "type.h" -#include "object.h" -#include "instr.h" -#include "import.h" - -GWION_IMPORT(union_test) { - CHECK_BB(gwi_union_ini(gwi, NULL)) - CHECK_BB(gwi_union_add(gwi,"float", "f")) - CHECK_BB(gwi_union_add(gwi,"int", "i")) - CHECK_BB(gwi_union_end(gwi, 0)) - return GW_OK; -} diff --git a/tests/test_plugins/union.gw b/tests/test_plugins/union.gw deleted file mode 100644 index b838c6a6..00000000 --- a/tests/test_plugins/union.gw +++ /dev/null @@ -1,8 +0,0 @@ -Union u; -<<>>; -<<<12 => u.f>>>; -<<<1 => u.i>>>; -<<>>; -<<>>; -<<<0 => u.i>>>; -<< u.o>>>; diff --git a/tests/test_plugins/variadic.c b/tests/test_plugins/variadic.c deleted file mode 100644 index edbb6bf4..00000000 --- a/tests/test_plugins/variadic.c +++ /dev/null @@ -1,49 +0,0 @@ -#include "gwion_util.h" -#include "gwion_ast.h" -#include "oo.h" -#include "vm.h" -#include "env.h" -#include "type.h" -#include "instr.h" -#include "object.h" -#include "import.h" -#include "vararg.h" - -static MFUN(m_test) { - printf("%p\n", *(M_Object*)MEM(0)); -} - -static MFUN(m_variadic) { - M_Object str_obj = *(M_Object*)MEM(SZ_INT); - if(!str_obj)return; - m_str str = STRING(str_obj); - struct Vararg_* arg = *(struct Vararg_**)MEM(SZ_INT*2); - - while(arg->i < arg->s) { - if(*str == 'i') { - printf("%" INT_F "\n", *(m_int*)(arg->d + arg->o)); - arg->o += SZ_INT; - } else if(*str == 'f') { - printf("%f\n", *(m_float*)(arg->d + arg->o)); - arg->o += SZ_FLOAT; - } else if(*str == 'o') { - printf("%p\n", (void*)*(M_Object*)(arg->d + arg->o)); - arg->o += SZ_INT; - } - arg->i++; - str++; - } - free_vararg(arg); -} - -GWION_IMPORT(variadic test) { - const Type t_variadic = gwi_mk_type(gwi, "Variadic", SZ_INT, t_object); - CHECK_BB(gwi_class_ini(gwi, t_variadic, NULL, NULL)) - CHECK_BB(gwi_func_ini(gwi, "void", "member", m_variadic)) - CHECK_BB(gwi_func_arg(gwi, "string", "format")) - CHECK_BB(gwi_func_end(gwi, ae_flag_variadic)) - CHECK_BB(gwi_func_ini(gwi, "void", "test", m_test)) - CHECK_BB(gwi_func_end(gwi, 0)) - CHECK_BB(gwi_class_end(gwi)) - return GW_OK; -} diff --git a/tests/test_plugins/variadic.gw b/tests/test_plugins/variadic.gw deleted file mode 100644 index c315163f..00000000 --- a/tests/test_plugins/variadic.gw +++ /dev/null @@ -1,13 +0,0 @@ -<<<"test builtin variadic function">>>; -Variadic v; -"iiii" => string format; -<<>>; -v.member(format, 1,2,3,4); -v.member(format, 1,2,3,4); -v.test(); -v.member(format, 1,2,3,4); -v.member(format, 1,2,3,4); -v.test(); -v.member(format, 1,2,3,4); -v.member(format, 1,2,3,4); -v.test();