summaryrefslogtreecommitdiff
path: root/ltests.c
diff options
context:
space:
mode:
Diffstat (limited to 'ltests.c')
-rw-r--r--ltests.c17
1 files changed, 3 insertions, 14 deletions
diff --git a/ltests.c b/ltests.c
index 456c9d91..afdfb515 100644
--- a/ltests.c
+++ b/ltests.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: ltests.c,v 2.6 2004/05/10 17:50:51 roberto Exp roberto $ 2** $Id: ltests.c,v 2.7 2004/05/31 18:50:48 roberto Exp roberto $
3** Internal Module for Debugging of the Lua Implementation 3** Internal Module for Debugging of the Lua Implementation
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -760,16 +760,6 @@ static int int2fb_aux (lua_State *L) {
760} 760}
761 761
762 762
763static int test_do (lua_State *L) {
764 const char *p = luaL_checkstring(L, 1);
765 if (*p == '@')
766 lua_dofile(L, p+1);
767 else
768 lua_dostring(L, p);
769 return lua_gettop(L);
770}
771
772
773 763
774/* 764/*
775** {====================================================== 765** {======================================================
@@ -858,8 +848,8 @@ static int testC (lua_State *L) {
858 const char *s = lua_tostring(L, getnum); 848 const char *s = lua_tostring(L, getnum);
859 lua_pushstring(L, s); 849 lua_pushstring(L, s);
860 } 850 }
861 else if EQ("strlen") { 851 else if EQ("objsize") {
862 lua_pushinteger(L, lua_strlen(L, getnum)); 852 lua_pushinteger(L, lua_objsize(L, getnum));
863 } 853 }
864 else if EQ("tocfunction") { 854 else if EQ("tocfunction") {
865 lua_pushcfunction(L, lua_tocfunction(L, getnum)); 855 lua_pushcfunction(L, lua_tocfunction(L, getnum));
@@ -1033,7 +1023,6 @@ static const struct luaL_reg tests_funcs[] = {
1033 {"stacklevel", stacklevel}, 1023 {"stacklevel", stacklevel},
1034 {"querystr", string_query}, 1024 {"querystr", string_query},
1035 {"querytab", table_query}, 1025 {"querytab", table_query},
1036 {"doit", test_do},
1037 {"testC", testC}, 1026 {"testC", testC},
1038 {"checkmemory", lua_checkmemory}, 1027 {"checkmemory", lua_checkmemory},
1039 {"gccolor", get_gccolor}, 1028 {"gccolor", get_gccolor},