diff options
Diffstat (limited to 'tests/lbaselib.js')
| -rw-r--r-- | tests/lbaselib.js | 651 |
1 files changed, 0 insertions, 651 deletions
diff --git a/tests/lbaselib.js b/tests/lbaselib.js deleted file mode 100644 index 6bef0d8..0000000 --- a/tests/lbaselib.js +++ /dev/null @@ -1,651 +0,0 @@ -"use strict"; - -const test = require('tape'); - -const lua = require('../src/lua.js'); -const lauxlib = require('../src/lauxlib.js'); -const lualib = require('../src/lualib.js'); -const {to_luastring} = require("../src/fengaricore.js"); - - -test('print', function (t) { - let luaCode = ` - print("hello", "world", 123) - `, L; - - t.plan(1); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - - lua.lua_call(L, 0, -1); - - }, "JS Lua program ran without error"); -}); - - -test('setmetatable, getmetatable', function (t) { - let luaCode = ` - local mt = { - __index = function () - print("hello") - return "hello" - end - } - - local t = {} - - setmetatable(t, mt); - - return t[1], getmetatable(t) - `, L; - - t.plan(3); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - - lua.lua_call(L, 0, -1); - - }, "JS Lua program ran without error"); - - t.strictEqual( - lua.lua_tojsstring(L, -2), - "hello", - "Correct element(s) on the stack" - ); - - t.ok( - lua.lua_istable(L, -1), - "Correct element(s) on the stack" - ); -}); - - -test('rawequal', function (t) { - let luaCode = ` - local mt = { - __eq = function () - return true - end - } - - local t1 = {} - local t2 = {} - - setmetatable(t1, mt); - - return rawequal(t1, t2), t1 == t2 - `, L; - - t.plan(3); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - - lua.lua_call(L, 0, -1); - - }, "JS Lua program ran without error"); - - t.notOk( - lua.lua_toboolean(L, -2), - "Correct element(s) on the stack" - ); - - t.ok( - lua.lua_toboolean(L, -1), - "Correct element(s) on the stack" - ); -}); - - -test('rawset, rawget', function (t) { - let luaCode = ` - local mt = { - __newindex = function (table, key, value) - rawset(table, key, "hello") - end - } - - local t = {} - - setmetatable(t, mt); - - t["yo"] = "bye" - rawset(t, "yoyo", "bye") - - return rawget(t, "yo"), t["yo"], rawget(t, "yoyo"), t["yoyo"] - `, L; - - t.plan(5); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - - lua.lua_call(L, 0, -1); - - }, "JS Lua program ran without error"); - - t.strictEqual( - lua.lua_tojsstring(L, -4), - "hello", - "Correct element(s) on the stack" - ); - - t.strictEqual( - lua.lua_tojsstring(L, -3), - "hello", - "Correct element(s) on the stack" - ); - - t.strictEqual( - lua.lua_tojsstring(L, -2), - "bye", - "Correct element(s) on the stack" - ); - - t.strictEqual( - lua.lua_tojsstring(L, -1), - "bye", - "Correct element(s) on the stack" - ); -}); - - -test('type', function (t) { - let luaCode = ` - return type(1), type(true), type("hello"), type({}), type(nil) - `, L; - - t.plan(6); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - - lua.lua_call(L, 0, -1); - - }, "JS Lua program ran without error"); - - t.strictEqual( - lua.lua_tojsstring(L, -5), - "number", - "Correct element(s) on the stack" - ); - - t.strictEqual( - lua.lua_tojsstring(L, -4), - "boolean", - "Correct element(s) on the stack" - ); - - t.strictEqual( - lua.lua_tojsstring(L, -3), - "string", - "Correct element(s) on the stack" - ); - - t.strictEqual( - lua.lua_tojsstring(L, -2), - "table", - "Correct element(s) on the stack" - ); - - t.strictEqual( - lua.lua_tojsstring(L, -1), - "nil", - "Correct element(s) on the stack" - ); -}); - - -test('error', function (t) { - let luaCode = ` - error("you fucked up") - `, L; - - t.plan(1); - - t.throws(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - - lua.lua_call(L, 0, -1); - - }, "JS Lua program ran without error"); -}); - - -test('error, protected', function (t) { - let luaCode = ` - error("you fucked up") - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - - lua.lua_pcall(L, 0, -1, 0); - - }, "JS Lua program ran without error"); - - t.ok( - lua.lua_tojsstring(L, -1).endsWith("you fucked up"), - "Error is on the stack" - ); -}); - - -test('pcall', function (t) { - let luaCode = ` - local willFail = function () - error("you fucked up") - end - - return pcall(willFail) - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - - lua.lua_call(L, 0, -1); - - }, "JS Lua program ran without error"); - - t.ok( - lua.lua_tojsstring(L, -1).endsWith("you fucked up"), - "Error is on the stack" - ); -}); - - -test('xpcall', function (t) { - let luaCode = ` - local willFail = function () - error("you fucked up") - end - - local msgh = function (err) - return "Something's wrong: " .. err - end - - return xpcall(willFail, msgh) - `, L; - - t.plan(3); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - - lua.lua_call(L, 0, -1); - - }, "JS Lua program ran without error"); - - t.ok( - lua.lua_tojsstring(L, -1).startsWith("Something's wrong:"), - "msgh was called and modified the error" - ); - - t.ok( - lua.lua_tojsstring(L, -1).endsWith("you fucked up"), - "msgh was called and modified the error" - ); -}); - - -test('ipairs', function (t) { - let luaCode = ` - local t = {1, 2, 3, 4, 5, ['yo'] = 'lo'} - - local sum = 0 - for i, v in ipairs(t) do - sum = sum + v - end - - return sum - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - - lua.lua_call(L, 0, -1); - - }, "JS Lua program ran without error"); - - t.strictEqual( - lua.lua_tointeger(L, -1), - 15, - "Correct element(s) on the stack" - ); -}); - - -test('select', function (t) { - let luaCode = ` - return {select('#', 1, 2, 3)}, {select(2, 1, 2, 3)}, {select(-2, 1, 2, 3)} - `, L; - - t.plan(4); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - - lua.lua_call(L, 0, -1); - - }, "JS Lua program ran without error"); - - t.deepEqual( - [...lua.lua_topointer(L, -3).strong.entries()].map(e => e[1].value.value), - [3], - "Correct element(s) on the stack" - ); - - t.deepEqual( - [...lua.lua_topointer(L, -2).strong.entries()].map(e => e[1].value.value).sort(), - [2, 3], - "Correct element(s) on the stack" - ); - - t.deepEqual( - [...lua.lua_topointer(L, -1).strong.entries()].map(e => e[1].value.value).sort(), - [2, 3], - "Correct element(s) on the stack" - ); -}); - - -test('tonumber', function (t) { - let luaCode = ` - return tonumber('foo'), - tonumber('123'), - tonumber('12.3'), - tonumber('az', 36), - tonumber('10', 2) - `, L; - - t.plan(6); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - - lua.lua_call(L, 0, -1); - - }, "JS Lua program ran without error"); - - t.ok( - lua.lua_isnil(L, -5), - "Correct element(s) on the stack" - ); - - t.strictEqual( - lua.lua_tonumber(L, -4), - 123, - "Correct element(s) on the stack" - ); - - t.strictEqual( - lua.lua_tonumber(L, -3), - 12.3, - "Correct element(s) on the stack" - ); - - t.strictEqual( - lua.lua_tonumber(L, -2), - 395, - "Correct element(s) on the stack" - ); - - t.strictEqual( - lua.lua_tonumber(L, -1), - 2, - "Correct element(s) on the stack" - ); -}); - - -test('assert', function (t) { - let luaCode = ` - assert(1 < 0, "this doesn't makes sense") - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - - lua.lua_pcall(L, 0, -1, 0); - - }, "JS Lua program ran without error"); - - t.ok( - lua.lua_tojsstring(L, -1).endsWith("this doesn't makes sense"), - "Error is on the stack" - ); -}); - - -test('rawlen', function (t) { - let luaCode = ` - return rawlen({1, 2, 3}), rawlen('hello') - `, L; - - t.plan(3); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - - lua.lua_call(L, 0, -1); - - }, "JS Lua program ran without error"); - - t.strictEqual( - lua.lua_tonumber(L, -2), - 3, - "Correct element(s) on the stack" - ); - - t.strictEqual( - lua.lua_tonumber(L, -1), - 5, - "Correct element(s) on the stack" - ); -}); - - -test('next', function (t) { - let luaCode = ` - local total = 0 - local t = { - 1, - two = 2, - 3, - four = 4 - } - - for k,v in next, t, nil do - total = total + v - end - - return total - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - - lua.lua_call(L, 0, -1); - - }, "JS Lua program ran without error"); - - t.strictEqual( - lua.lua_tonumber(L, -1), - 10, - "Correct element(s) on the stack" - ); -}); - - -test('pairs', function (t) { - let luaCode = ` - local total = 0 - local t = { - 1, - two = 2, - 3, - four = 4 - } - - for k,v in pairs(t) do - total = total + v - end - - return total - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - - lua.lua_call(L, 0, -1); - - }, "JS Lua program ran without error"); - - t.strictEqual( - lua.lua_tonumber(L, -1), - 10, - "Correct element(s) on the stack" - ); -}); - - -test('pairs with __pairs', function (t) { - let luaCode = ` - local total = 0 - - local mt = { - __pairs = function(t) - return next, {5, 6, 7, 8}, nil - end - } - - local t = { - 1, - two = 2, - 3, - four = 4 - } - - setmetatable(t, mt) - - for k,v in pairs(t) do - total = total + v - end - - return total - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - - lua.lua_call(L, 0, -1); - - }, "JS Lua program ran without error"); - - t.strictEqual( - lua.lua_tonumber(L, -1), - 26, - "Correct element(s) on the stack" - ); -}); |