rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

tests for compatibility functions lua_dostring/lua_dofile

This commit is contained in:
Roberto Ierusalimschy 2002-10-22 15:07:55 -03:00
parent 11886dc7b0
commit 4fb9110a6e
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ltests.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: ltests.c,v 1.135 2002/09/05 19:57:08 roberto Exp roberto $ ** $Id: ltests.c,v 1.136 2002/10/22 17:18:28 roberto Exp roberto $
** Internal Module for Debugging of the Lua Implementation ** Internal Module for Debugging of the Lua Implementation
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -478,6 +478,17 @@ static int log2_aux (lua_State *L) {
} }
static int test_do (lua_State *L) {
const char *p = luaL_check_string(L, 1);
if (*p == '@')
lua_dofile(L, p+1);
else
lua_dostring(L, p);
return lua_gettop(L);
}
/* /*
** {====================================================== ** {======================================================
** function to test the API with C. It interprets a kind of assembler ** function to test the API with C. It interprets a kind of assembler
@ -683,6 +694,7 @@ static const struct luaL_reg tests_funcs[] = {
{"stacklevel", stacklevel}, {"stacklevel", stacklevel},
{"querystr", string_query}, {"querystr", string_query},
{"querytab", table_query}, {"querytab", table_query},
{"doit", test_do},
{"testC", testC}, {"testC", testC},
{"ref", tref}, {"ref", tref},
{"getref", getref}, {"getref", getref},