diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/C/Makefile | 13 | ||||
| -rw-r--r-- | tests/C/lua_pushcclosure-light.c | 25 | ||||
| -rw-r--r-- | tests/lapi.js | 63 |
3 files changed, 95 insertions, 6 deletions
diff --git a/tests/C/Makefile b/tests/C/Makefile index 7d943b9..357bbbe 100644 --- a/tests/C/Makefile +++ b/tests/C/Makefile @@ -4,9 +4,10 @@ CFLAGS= -g -Wall -Wextra LIBS= -lm -llua all: - $(CC) $(CFLAGS) $(LIBS) lua_pushnil.c -o lua_pushnil.out - $(CC) $(CFLAGS) $(LIBS) lua_pushnumber.c -o lua_pushnumber.out - $(CC) $(CFLAGS) $(LIBS) lua_pushinteger.c -o lua_pushinteger.out - $(CC) $(CFLAGS) $(LIBS) lua_pushstring.c -o lua_pushstring.out - $(CC) $(CFLAGS) $(LIBS) lua_pushboolean.c -o lua_pushboolean.out - $(CC) $(CFLAGS) $(LIBS) lua_pushvalue.c -o lua_pushvalue.out
\ No newline at end of file + $(CC) $(CFLAGS) $(LIBS) lua_pushnil.c -o lua_pushnil.out + $(CC) $(CFLAGS) $(LIBS) lua_pushnumber.c -o lua_pushnumber.out + $(CC) $(CFLAGS) $(LIBS) lua_pushinteger.c -o lua_pushinteger.out + $(CC) $(CFLAGS) $(LIBS) lua_pushstring.c -o lua_pushstring.out + $(CC) $(CFLAGS) $(LIBS) lua_pushboolean.c -o lua_pushboolean.out + $(CC) $(CFLAGS) $(LIBS) lua_pushvalue.c -o lua_pushvalue.out + $(CC) $(CFLAGS) $(LIBS) lua_pushcclosure-light.c -o lua_pushcclosure-light.out
\ No newline at end of file diff --git a/tests/C/lua_pushcclosure-light.c b/tests/C/lua_pushcclosure-light.c new file mode 100644 index 0000000..a891450 --- /dev/null +++ b/tests/C/lua_pushcclosure-light.c @@ -0,0 +1,25 @@ +#include <lua.h> +#include <lualib.h> +#include <lauxlib.h> +#include <stdlib.h> +#include <stdio.h> + +int func(lua_State *L) { + return 0; +} + +int main(void) { + + lua_State *L = luaL_newstate(); + + luaL_openlibs(L); + + lua_pushcclosure(L, func, 0); + + printf("L->top(%d): %s\n", lua_gettop(L), luaL_typename(L, lua_gettop(L))); + + lua_close(L); + + return 0; + +}
\ No newline at end of file diff --git a/tests/lapi.js b/tests/lapi.js index 875a89c..ad39fe1 100644 --- a/tests/lapi.js +++ b/tests/lapi.js @@ -215,4 +215,67 @@ test('lua_pushvalue', function (t) { "hello", "top is correct" ); +}); + + +test('lua_pushcclosure', function (t) { + let L; + + t.plan(3); + + t.doesNotThrow(function () { + + let fn = function(L) { + return 0; + }; + + L = lauxlib.luaL_newstate(); + + lapi.lua_pushstring(L, "a value associated to the C closure"); + lapi.lua_pushcclosure(L, fn, 1); + + }, "JS Lua program ran without error"); + + t.strictEqual( + lapi.lua_gettop(L), + 1, + "top is correct" + ); + + t.strictEqual( + lauxlib.luaL_typename(L, lapi.lua_gettop(L)), + "function", + "Correct element(s) on the stack" + ); +}); + + +test('lua_pushcfunction', function (t) { + let L; + + t.plan(3); + + t.doesNotThrow(function () { + + let fn = function(L) { + return 0; + }; + + L = lauxlib.luaL_newstate(); + + lapi.lua_pushcfunction(L, fn); + + }, "JS Lua program ran without error"); + + t.strictEqual( + lapi.lua_gettop(L), + 1, + "top is correct" + ); + + t.strictEqual( + lauxlib.luaL_typename(L, lapi.lua_gettop(L)), + "function", + "Correct element(s) on the stack" + ); });
\ No newline at end of file |