diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/C/Makefile | 3 | ||||
-rw-r--r-- | tests/C/lua_pushvalue.c | 24 | ||||
-rw-r--r-- | tests/lapi.js | 47 |
3 files changed, 73 insertions, 1 deletions
diff --git a/tests/C/Makefile b/tests/C/Makefile index bc153a5..7d943b9 100644 --- a/tests/C/Makefile +++ b/tests/C/Makefile @@ -8,4 +8,5 @@ all: $(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
\ No newline at end of file + $(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 diff --git a/tests/C/lua_pushvalue.c b/tests/C/lua_pushvalue.c new file mode 100644 index 0000000..055ee23 --- /dev/null +++ b/tests/C/lua_pushvalue.c @@ -0,0 +1,24 @@ +#include <lua.h> +#include <lualib.h> +#include <lauxlib.h> +#include <stdlib.h> +#include <stdio.h> + +int main(void) { + + lua_State *L = luaL_newstate(); + + luaL_openlibs(L); + + lua_pushstring(L, "hello"); + + lua_pushvalue(L, -1); + + printf("L->top(%d): %s\n", lua_gettop(L), luaL_typename(L, -1)); + printf("L->top - 1(%d): %s\n", lua_gettop(L) - 1, luaL_typename(L, -2)); + + lua_close(L); + + return 0; + +}
\ No newline at end of file diff --git a/tests/lapi.js b/tests/lapi.js index 6c5d7a4..8dd2680 100644 --- a/tests/lapi.js +++ b/tests/lapi.js @@ -168,4 +168,51 @@ test('lua_pushboolean', function (t) { true, "top is correct" ); +}); + + +test('lua_pushvalue', function (t) { + let L; + + t.plan(6); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lapi.lua_pushstring(L, "hello"); + + lapi.lua_pushvalue(L, -1); + + }, "JS Lua program ran without error"); + + t.strictEqual( + lapi.lua_gettop(L), + 2, + "top is correct" + ); + + t.strictEqual( + lauxlib.luaL_typename(L, -1), + "string", + "Correct element(s) on the stack" + ); + + t.strictEqual( + lauxlib.luaL_typename(L, -2), + "string", + "Correct element(s) on the stack" + ); + + t.strictEqual( + L.stack[lapi.lua_gettop(L)].value, + "hello", + "top is correct" + ); + + t.strictEqual( + L.stack[lapi.lua_gettop(L) - 1].value, + "hello", + "top is correct" + ); });
\ No newline at end of file |