Ensure the lua state gets closed when running tests

This is required for the gc metamethods to actually get run.
This commit is contained in:
Thomas Goyne 2014-07-21 09:34:33 -07:00
parent bf7503fe5c
commit 60c51eb9a3
1 changed files with 14 additions and 0 deletions

View File

@ -33,6 +33,12 @@ void check(lua_State *L, int status) {
exit(status);
}
}
int close_and_exit(lua_State *L) {
int status = lua_tointeger(L, 1);
lua_close(L);
exit(status);
}
}
int main(int argc, char **argv) {
@ -54,6 +60,13 @@ int main(int argc, char **argv) {
preload_modules(L);
Install(L, {"include"});
// Patch os.exit to close the lua state first since busted calls it when
// it's done
lua_getglobal(L, "os");
lua_pushcfunction(L, close_and_exit);
lua_setfield(L, -2, "exit");
lua_pop(L, 1);
// Build arg table for scripts
lua_createtable(L, argc - 1, 0);
for (int i = 1; i < argc; ++i) {
@ -76,5 +89,6 @@ int main(int argc, char **argv) {
int base = lua_gettop(L) - argc + 1;
check(L, lua_pcall(L, argc - 2, LUA_MULTRET, base));
lua_close(L);
}