From 801840a44257d95376a5f7d5fe97d87b9f16bd93 Mon Sep 17 00:00:00 2001 From: sanine Date: Tue, 24 Aug 2021 22:08:56 -0500 Subject: update README types and fix bug in C function tests --- src/tests/hs_parse_args_tests.c | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) (limited to 'src/tests/hs_parse_args_tests.c') diff --git a/src/tests/hs_parse_args_tests.c b/src/tests/hs_parse_args_tests.c index a6aa475..300a519 100644 --- a/src/tests/hs_parse_args_tests.c +++ b/src/tests/hs_parse_args_tests.c @@ -48,7 +48,8 @@ static int testfunc(lua_State *L) { return 0; } lua_pop(L, 1); #define CHECK_FAIL_FUNC(name) \ - lua_pushcfunction(L, name ## _testfunc); lua_getglobal(L, "print"); \ + lua_pushcfunction(L, name ## _testfunc); \ + luaL_loadstring(L, "print('hello, world!')"); \ mu_assert("incorrectly succeeded in parsing function!", \ lua_pcall(L, 1, 0, 0) != 0); \ lua_pop(L, 1); @@ -191,7 +192,7 @@ PARSE_TYPECHECK_TEST(parse_func_typecheck, int, hs_func) CHECK_FAIL_TABLE(parse_func_typecheck); lua_pushcfunction(L, parse_func_typecheck_testfunc); - lua_getglobal(L, "print"); + luaL_loadstring(L, "print('hello, world!')"); mu_assert("typecheck for function failed!", lua_pcall(L, 1, 0, 0) == 0); @@ -199,7 +200,7 @@ PARSE_TYPECHECK_TEST(parse_func_typecheck, int, hs_func) lua_pushvalue(L, -1); mu_assert("typecheck for C function failed!", lua_pcall(L, 1, 0, 0) == 0); - + CHECK_FAIL_USER(parse_func_typecheck); CHECK_FAIL_LIGHT(parse_func_typecheck); CHECK_FAIL_NIL(parse_func_typecheck); @@ -318,7 +319,7 @@ PARSE_TYPECHECK_TEST(parse_any_typecheck, int, hs_any) lua_pcall(L, 1, 0, 0) == 0); lua_pushcfunction(L, parse_func_typecheck_testfunc); - lua_getglobal(L, "test"); + luaL_loadstring(L, "print('hello, world!')"); mu_assert("typecheck for function failed!", lua_pcall(L, 1, 0, 0) == 0); @@ -429,7 +430,7 @@ int should_fail(lua_State *L) TEST(fail_parse_noncfunc) { lua_pushcfunction(L, should_fail); - lua_getglobal(L, "print"); + luaL_loadstring(L, "print('hello, world!')"); mu_assert("incorrectly parsed non-C function!", lua_pcall(L, 1, 0, 0) != 0); return 0; @@ -548,7 +549,8 @@ TEST(parse_readme_example) lua_pushstring(L, "c: c: c:"); void *userdata = lua_newuserdata(L, sizeof(char)); - bool b; int i; int table_index; float f; char *str; void *user; + bool b; long int i; int table_index; + double f; char *str; void *user; hs_parse_args (L, hs_bool(b), hs_int(i), hs_tbl(table_index), hs_num(f), hs_str(str), hs_user(user)); @@ -571,7 +573,7 @@ TEST(parse_readme_example) void hs_parse_args_tests() { - printf("running hs_parse_args() typechecking tests...\n"); + printf("running hs_parse_args() tests...\n"); mu_run_test("parse bool typecheck", parse_bool_typecheck); mu_run_test("parse int typecheck", parse_int_typecheck); mu_run_test("parse num typecheck", parse_num_typecheck); @@ -584,7 +586,6 @@ void hs_parse_args_tests() mu_run_test("parse nil typecheck", parse_nil_typecheck); mu_run_test("parse any typecheck", parse_any_typecheck); - printf("running hs_parse_args() parsing tests...\n"); mu_run_test("parse bool", parse_bool); mu_run_test("parse int", parse_int); mu_run_test("parse num", parse_num); -- cgit v1.2.1