main_test_expr ()
{
struct param_expr_info px;
expr buf_cons [N_CONS] [2];
char buf_status [N_CONS];
/* int ptrcons; */
recup_item buf_recup[400];
/* int ptr_recup; */
/* int n_decl; */
char *(buf_symbol[N_SYMBOL]);
px.pe_tab_cons = buf_cons;
px.pe_tab_status = buf_status;
px.pe_n_cons = N_CONS;
px.pe_tab_recup = buf_recup;
px.pe_n_recup = N_RECUP;
px.pe_tab_symbol = buf_symbol;
px.pe_n_symbol = N_SYMBOL;
init_expr (&px);
print (cons (symbol("aaa"),
cons (symbol("bbb"),
cons (symbol ("aaa"), symbol ("ccc"))
)));
printf ("\n");
test_gc ();
}
int main() {
test_mm_sort_blocks();
test_mm_is_handle();
test_gc();
return 0;
}
static void run_tests(void)
{
strict_dispid_check = TRUE;
parse_script_a("");
parse_script_a("' empty ;");
SET_EXPECT(global_success_d);
SET_EXPECT(global_success_i);
parse_script_a("reportSuccess");
CHECK_CALLED(global_success_d);
CHECK_CALLED(global_success_i);
SET_EXPECT(global_success_d);
SET_EXPECT(global_success_i);
parse_script_a("reportSuccess()");
CHECK_CALLED(global_success_d);
CHECK_CALLED(global_success_i);
SET_EXPECT(global_success_d);
SET_EXPECT(global_success_i);
parse_script_a("Call reportSuccess");
CHECK_CALLED(global_success_d);
CHECK_CALLED(global_success_i);
SET_EXPECT(global_vbvar_d);
SET_EXPECT(global_vbvar_i);
parse_script_a("Option Explicit\nvbvar = 3");
CHECK_CALLED(global_vbvar_d);
CHECK_CALLED(global_vbvar_i);
SET_EXPECT(global_vbvar_d);
SET_EXPECT(global_vbvar_i);
parse_script_a("Option Explicit\nvbvar() = 3");
CHECK_CALLED(global_vbvar_d);
CHECK_CALLED(global_vbvar_i);
SET_EXPECT(testobj_propget_d);
SET_EXPECT(testobj_propget_i);
parse_script_a("dim x\nx = testObj.propget");
CHECK_CALLED(testobj_propget_d);
CHECK_CALLED(testobj_propget_i);
SET_EXPECT(testobj_propput_d);
SET_EXPECT(testobj_propput_i);
parse_script_a("testObj.propput = 1");
CHECK_CALLED(testobj_propput_d);
CHECK_CALLED(testobj_propput_i);
run_from_res("lang.vbs");
run_from_res("api.vbs");
test_gc();
}
int main(int argc, const char *argv[])
{
int ret = 0;
KonohaContext* konoha = CreateContext();
test_gc(konoha);
DeleteContext(konoha);
assert(__Free__ == __Init__);
fprintf(stderr, "alloced_object_count = %d, freed_object_count=%d\n", __Init__, __Free__);
test_bitops();
return ret;
}
main ()
{
init ();
test_gc ();
}
